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Preface 


Sophistication knows no bounds for the enlightened. 

—From Modern Wisdom and Conundrums 
The quotation shown above has no relevance here, but I thought it sounded pretty good. 
No one reads the preface of a book, anyway —so it really doesn’t matter. 

Come to think of it, though, this book might at least appear to offer some enlighten- 
ment, especially to someone who doesn’t know how to work a home computer. It might 
look terribly sophisticated to someone like that. In fact, you can impress people even 
more by cutting the cover off a copy of War and Peace and gluing it over this one. You'll 
have room for your lunch in here, too. 

No, there isn’t much relevance to anything within these pages. And there is no 
overabundance of reverence for the modern computer world, either. 

Let me tell you something: if you are still reading this preface, you belong to a 
unique group of individuals. For that reason, you deserve to know more about this book. 
That’s what a preface is for. 

This book of programs is mainly intended for BASIC programmers who have gotten 
tired of doing the same old things—and, indeed, such things are getting tiresome these 
days. I must confess that a couple of these programs are much like the “same old things,” 
but perhaps better presented, easier to enter into your computer, and more fun to use. 

“Fun.” I just said, “fun.” That’s what this book is all about. And I don’t mean just 
programs that are fun. I mean the whole idea is fun. In many instances, I don’t give you 
the slightest hint about what the program does—those are the little jokes I pull on you. 
Then some of the programs give you a chance to pull some fast ones on your friends (or 
enemies). Tired of the same old computerized high-low guessing games? Well, how 
about one that lets you sort of. . . well, load the game in your favor? 

Want to show friends how you keep track of the stock market or the world monetary 
system? There are programs for doing that. Or if you are willing to acknowledge the 
darker side of your personality, how about programs that let you copy those so-called 
copy-protected disks and peek into high-class computers anywhere in the country? It’s 
all here, in a manner of speaking. 

There’s 101 programs for your Apple II or [Je home computer. Most of them are 
rather short so that you will not have to labor at the keyboard very long. Leaf through the 
pages, find a title that strikes your fancy, and go to work on it. There are enough 
programs to keep you going that way for quite some time. 

People ask, “Did you make up all these programs?” I first respond by saying that you 
don't have to look very far to find hundreds of examples of unenlightening and unsophisti- 
cated programs. But after saying that, I begin feeling bad about knocking the software 
business, and explain that I had a lot of help fromsome nice people—namely Robin Yates 
and Kevin Abnett. Robin formatted the manuscript and played with the programs to her 
heart's content on our resident Apples. Kevin drafted most of the programs, but he is still 
grumbling about how I always changed things in them. 

We dug up a few ideas, and most of the quotations, from standard library sources and 
the waste dumpsters in the parking lots of high-tech consulting firms. Then there was 
this one idea I found on a piece of paper in a water puddle in Indianapolis. I didn’t use it in 
this book, however. 


viti 


Program 1 WATCH THIS! 


“The real danger is not that computers will begin to think like men, but that men will 
begin to think like computers.” 


18 
20 
38 
42 
5@ 
62 
70 
82 
90 
108 
1198 
120 
1390 
1498 
1598 
1608 
178 
1890 
199 
2008 
2190 
220 
230 
240 
258 
2608 
278 
2898 
2968 


—Sydney J. Harris 


REM ** WATCH THIS ** 
REM 
TEXT : HOME 
FOR N = 1T05 
READ D:C$ = CHR$ (D) 
H = N + 17 
GOSUB 2190 
NEXT N 
FOR N = 1 TO 5: CALL - 198: NEXT N 
HTAB 18: VTAB 28: PRINT CHRS$ (32) 
HTAB 18: VTAB 19: PRINT "0" 
FOR H = 18 TO 23 
HTAB H ~- 1: VTAB 19: PRINT CHRS$ (32) 
HTAB H: VTAB 19: PRINT "0" 
FOR T = @ TO 20: NEXT T 
NEXT H 
HTAB 23: VTAB 19: PRINT CHRS (32) 
HTAB 23: VTAB 20: PRINT "0* 
HTAB 11: VTAB 23: PRINT "I AM YOUR COMPUTER"; 
END 
FOR V = 2 TO 20 
HTAB H: VTAB V - 1 
PRINT CHRS (32) 
HTAB H: VTAB V 
PRINT C$ 
FOR T = @ TO 20: NEXT T 
NEXT V 
RETURN 
DATA 79,72,69,76,76 


Program 2 MISSION IMPOSSIBLE 


“Who knows what evil lurks in the hearts of men?” 


16 

20 

38 

40 
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108 
118 
126 
138 
14@ 
158 
16@ 
178 
188 
196 
2808 
218 
220 
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240 
250 
260 
270 
280 
296 
308 
318 
320 
338 
348 
358 
368 
37@ 
388 
398 
408 
418 
426 
430 
440 


—The Shadow 
REM ** MISSION IMPOSSIBLE ** 
REM 
M S$ = wn 
FOR K = 1 TO 11:M$ = M$ + CHRS (32): NEXT K 
MS = MS + "MISSION IMPOSSIBLE" + CHRS (13) 
FOR K = 1 TO 46:MS = M$ + “*": NEXT K 
TEXT : HOME : PRINT M$ 
PRINT "PLEASE ENTER YOUR LAST NAME:" 
PRINT 
INPUT "";NS 
IF LEN (NS) < 1 THEN 1606 
VTAB 16 
FOR T = 1 TO 4 
READ TS$(T) 
PRINT TAB( 5)T" -- "TS$(T) 
NEXT T 
PRINT : PRINT "SELECT A TITLE (1-4):"; 
GET TS 
IF T$ < "1" OR TS > "4" THEN 186 
T = VAL (TS) 
TS = TS$(T) 
IF T = 4 THEN TS = "(WHATEVER)" 
HOME : PRINT M$ 
PRINT "GOOD MORNING, "TS SPC( 1)NS$ 
PRINT : PRINT TAB( 5)"THIS MAN, DAVID L. HEISERMAN, IS" 
PRINT "A DANGEROUS CROOK. STRIKE ANY KEY TO" 
PRINT “SEE A PICTURE OF HIM..." 
PRINT : GET K$ 
HOME : POKE 36,5 
PRINT : PRINT 
PRINT " ((0)))" 
PRINT " ((CC0Q)))))" 
PRINT " ((0000))))))" 
PRINT " C(O 0) DD" 
PRINT * ({ ))" 
PRINT " (CC <*> <*> ))?)" 
PRINT " (( JL yy" 
PRINT " (( AA ))" 
PRINT " (( ---- ))" 
PRINT " (X XXXX x)" 
PRINT " XX XXXXX XXXXX XX" 
PRINT " XXXX XXXX" 
PRINT " XX (LTTETT) xx " 
PRINT " x ( ) x" 


450 PRINT "* XX xx * 

460 PRINT * XXXXXXXXXXXX* 

470 PRINT * XXXXXXXXXX* 

486 PRINT * XXXXXX" 

490 VTAB 22: PRINT “STRIKE ANY KEY TO CONTINUE ..."; 
506 GET K$ 


510 HOME : PRINT M$ 

528 PRINT “HE IS GETTING WEALTHY BY WRITING FAKE" 

530 PRINT "BOOKS ON COMPUTER PROGRAMMING (SUCH" 

549 PRINT “AS THIS ONE)." 

550 FOR T = 1 TO 1806: NEXT T 

568 VTAB 16: PRINT “YOUR MISSION, SHOULD YOU DECIDE TO* 
576 PRINT "ACCEPT IT, IS TO TRY THE PROGRAMS IN* 

586 PRINT "THIS BOOK ... AND HAVE A LOT OF FUN* 

599 PRINT "(HE ALREADY GOT YOUR MONEY). 

6600 VTAB 21: PRINT “STRIKE ANY KEY TO CONTINUE ..."; 
610 GET K$ 

620 HOME : PRINT M$ 

630 PRINT : FLASH : PRINT “THIS PROGRAM WILL SELF DESTRUCT IN £ 
646 PRINT "SECONDS": NORMAL 

650 FOR T = 1 TO 408 

660 IFT / 15 = INT (T / 15) THEN C = PEEK ( ~— 16336) 
670 NEXT T 

680 HOME : PRINT MS: VTAB 18 

698 PRINT : INVERSE : PRINT *MESSAGE ERASED*: NORMAL 
708 FOR K = 1 TO 5: CALL ( — 198): NEXT K 

718 END 

720 DATA MR.,MRS.,MS.,NONE OF THE ABOVE 


Program 3 MOVING MESSAGE 


“The fact that silence is golden may explain why there is so little of it.” 


208 
210 
2208 
236 
248 
2508 
268 
278 
280 
2968 
308 
316 
320 
330 
346 


— Anonymous 


REM ** MOVING MESSAGE GENERATOR ** 
REM 
REM 
FOR N = @ TO 39:MH$ = MH$ + "*": NEXT N 
TEXT : HOME 
PRINT "“MOVING-MESSAGE GENERATOR" 
PRINT MH$: PRINT 
PRINT “ENTER ANY MESSAGE UP TO 170 CHARACTERS" 
PRINT "LONG (ABOUT FOUR FULL LINES OR LESS) ." 
PRINT : PRINT “ENCLOSE THE MESSAGE IN QUOTATION MARKS" 
PRINT "IF YOU PLAN TO USE ANY COMMAS OR APOS-" 
PRINT "TROPHES." 
PRINT : INPUT M$ 
IF LEN (M$) < = 170 THEN 169 
PRINT : PRINT "MESSAGE IS TOO LONG. TRY AGAIN ...": GOTO 139 
VTAB 2@: PRINT "STRIKE ANY KEY TO BEGIN THE MOVING" 


PRINT "MESSAGE; THEN AGAIN STRIKE ANY KEY TO" 
PRINT "END THE PROGRAM."; 

GET K$ 

HOME 

NS = "4 

FOR K = 1 TO 40:N$ = " " + NS: NEXT K 


MS = NS + M$ 
HTAB 1: VTAB 18: PRINT MH$ 
HTAB 1: VTAB 14: PRINT MH$ 
FOR N = 2 TO LEN (M$) 
PS = MIDS (MS$,N) + LEFTS (M$,N - 1) 
VTAB 12: HTAB 1 
PRINT LEFTS (P$,40) 
FOR T = 1 TO 166: NEXT T 
K = PEEK (49152): POKE 49168,8 
IF K > 127 THEN HOME : END 
NEXT N 
GOTO 264 


Program 4 CURRENT TIME 


“No hand can make the clock strike for me the hours that are passed.” 
— Byron 


186 REM ** CURRENT TIME ** 

26 REM 

38 FOR N = 1 TO 40:X$ = xX$ + "=": NEXT N 

40 TEXT : HOME 

58 PRINT “SET THE CURRENT TIME:" 

686 PRINT X$: PRINT 

70 PRINT “ENTER THE CURRENT HOUR (1-12) "; 

86 INPUT "";CH:CH = INT (CH) 

960 IF CH > @ AND CH < = 12 THEN 118 

168 PRINT "TRY AGAIN ...";: GOTO 89 

118 PRINT : PRINT “ENTER THE CURRENT MINUTE (0-59) "; 
126 INPUT "";CM:CM = INT (CM) 

130 IF CM > = 6 AND CM < = 59 THEN 1590 

146 PRINT “TRY AGAIN ...";: GOTO 120 

15@ HOME : PRINT “CURRENT TIME (MORE OR LESS)" 
168 PRINT X$ 

178 HTAB 1: VTAB 21 

186 PRINT "STRIKE ANY KEY TO DO SOMETHING ELSE ..."; 
198 FOR HR = CH TO 12 

266 FOR MN CM TO 59 

216 FOR SC @ TO 59 

226 HR$ = "8" + STRS (HR) 

238 IF LEN (HRS$) > 2 THEN HRS = RIGHTS (HRS, 2) 
248 MNS = "6" + STRS (MN) 

250 IF LEN (MN$) > 2 THEN MN$ = RIGHTS (MNS, 2) 
268 SC$ = "@" + STRS (SC) 

270 IF LEN (SC$) > 2 THEN SCS = RIGHTS (SCS$,2) 
288 TS = HRS + "3" + MNS + "3" + SCS 

298 HTAB 1: VTAB 4 

300 INVERSE : PRINT TS: NORMAL 

316 FOR T = @ TO 37 

326 K = PEEK ( - 16384): POKE — 16368,0 

336 IF K > 127 THEN VTAB 22: END 

348 NEXT T 

358 NEXT SC,MN 

368 CM = 6: NEXT HR 

378 CH = 1: GOTO 199 


Program 5 PERPETUAL CALENDAR 


“Like sands through the hourglass, so are the days of our lives.” 
—NBC’s Days of Our Lives 


1@ REM ** PERPETUAL CALENDAR ** 

20 REM 

3@ FOR K = 1 TO 11:M$ = M$ + CHRS (32): NEXT K 
40 MS = M$ + “PERPETUAL CALENDAR" + CHRS (13) 
50 FOR K = 1 TO 4@:MS = MS + "*": NEXT K 

68 FOR K = 1 TO 8: READ DS$(K): NEXT K 

70 TEXT : HOME : PRINT M$ 

86 PRINT "ENTER A YEAR (1588-2008) "; 

98 INPUT "";YR 

198 YR = INT (YR) 

116 IF YR < = 2088 AND YR > = 1588 THEN 139 
128 PRINT "BETWEEN 1508 AND 2000 ";: GOTO 90 
13@ PRINT : PRINT "ENTER A MONTH (1-12) *; 

146 INPUT "";MT 

150 IF MT > = 1 AND MT < = 12 THEN 178 

166 PRINT "BETWEEN 1 AND 12 ";: GOTO 148 

17@ PRINT : PRINT "ENTER THE DAY OF THE MONTH (1-31) "; 
188 INPUT DT 

198 DT = INT (DT) 

206 IF DT > = 1 AND DT < = 31 THEN 2298 

218 PRINT "BETWEEN 1 AND 31 ";: GOTO 1828 

226 YD = YR - 18@4:DC = @ 

230 FOR K = 1 TO YD 

248 DC = DC + 365 

250 IF K / 4 = INT (K / 4) THEN DC = DC + 1 
260 NEXT K 

270 IF YR / 4 = INT (YR / 4) THEN DC = DC + 1 


288 DC = DC + DT 

298 MO = MT 

308 IF MO = 2 THEN DC = DC + 31 
318 IF MO = 3 THEN DC = DC + 59 
320 IF MO = 4 THEN DC = DC + 98 
330 IF MO = 5 THEN DC = DC + 120 
340 IF MO = 6 THEN DC = DC + 151 
358 IF MO = 7 THEN DC = DC + 181 
36@ IF MO = 8 THEN DC = DC + 212 
370 IF MO = 9 THEN DC = DC + 243 
380 IF MO = 18 THEN DC = DC + 273 
398 IF MO = 11 THEN DC = DC + 304 
400 IF MO = 12 THEN DC = DC + 334 
418 XG 7 * INT (DC / 7) 


420 DN = DC - XG 
430 IF DN = @ THEN DN = 7 

440 HOME : PRINT M$ 

450 PRINT MO"-"DT"—"YR 

46@ PRINT : PRINT " FALLS ON A "D$(DN) 

476 VTAB 21: PRINT "DO YOU WANT ANOTHER DATE (Y/N)"; 
480 GET K$: IF K$ = "Y¥" THEN 70 


498 IF K$ < > "N® THEN 488 

586 HOME : END 

518 DATA SUNDAY ,MONDAY , TUESDAY 

526 DATA WEDNESDAY, THURSDAY, FRIDAY 
538 DATA SATURDAY,SUNDAY 


Program 6 HOME RECIPES | 


“Bon appetit!” 


—Julia Child 


Are you getting tired of meals that are prepared from the same old recipes? Here is your 
chance to load your recipe file with an endless variety of new, creative, and challenging 


gastronomy. 

18 REM ** HOME RECIPES ** 

20 REM 

30 DIM A$(58),E$(58@),1$(58) ,Q$(58) 

40 FOR N = 1 TO 46:Y$ = Y$ + "$": NEXT N 

50 M$ = "HOME RECIPES" + CHRS (13) + YS 

6@ TEXT : HOME : PRINT MS 

70 PRINT “HI. WHAT IS YOUR FIRST NAME?" 

80 INPUT N$ 

96 IF LEN (N$) > 1 THEN 126 

106 PRINT "YOU'RE KIDDING. TRY AGAIN" 

110 PRINT : GOTO 8@ 

126 TS = "ACTION": GOSUB 470 

136 FOR A = 1 TO N:AS$(A) = ES(A): NEXT A 

146 NA=N- 1 

158 T$ = "QUANTITY": GOSUB 4798 

166 FOR Q = 1 TO N:Q$(Q) = E$(Q): NEXT Q 

170 NQ=N-1 

180 TS = "INGREDIENT": GOSUB 472 

196 FOR I = 1 TO N:I$(I) = ES$(I): NEXT I 

206 NI = N- 1 

218 NR = 1:N$ = NS + "'S RECIPE NO, " 

22@ HOME : PRINT NS$;NR; CHRS$ (13) ;Y$ 

238 FOR NL = 1 TO INT (18 * RND (1)) + 1 

24Q PRINT A$( INT (NA * RND (1)) + 1); 

256 PRINT SPC( 1)Q$( INT (NQ * RND (1)) + 1); 
266 PRINT SPC( 1)I$( INT (NI * RND (1)) + 1) 
270 NEXT NL 

286 VTAB 20: PRINT “STRIKE THE SPACE BAR TO SEE A DIFFERENT" 
298 PRINT "RECIPE (OR THE X KEY TO DO SOMETHING" 
3€0 PRINT “ELSE) ..."; 

318 GET KS 

320 IF K$ = CHRS (32) THEN NR = NR + 1: GOTO 220 
330 IF K$ = "X" THEN HOME : END 

348 GOTO 31¢@ 

350 N = 1:CV = PEEK (37) 

360 PRINT TS" #"N": ";: CALL —- 868 

376 INPUT "";KS$ 

380 IF LEN (K$) < 1 THEN 366 

390 IF K$ < > “###" THEN 426 

468 IF N > 1 THEN 460 

419 PRINT “ENTER AT LEAST ONE "TS: GOTO 368 
426 ES(N) = K$:N=N +41 

438 IF N > 5@ THEN 466 


446 
458 
460 
476 
488 
496 
588 
5186 
526 
538 
548 
558 
568 
578 
588 


IF PEEK (37) > 22 THEN POKE 37,CV - 1 

GOTO 368 

RETURN 

HOME : PRINT M$ 

PRINT TS" ENTRY PHASE.": PRINT 

PRINT “ENTER AT LEAST ONE, AND AS MANY AS 586" 
PRINT "EXPRESSIONS SUCH AS:": PRINT 

FOR N = 1 TO 5 

READ D$: PRINT TAB( 5)D$ 


NEXT N 
PRINT : PRINT “ENTER ### TO END YOUR LIST." 
PRINT : GOSUB 358: RETURN 


DATA STIR IN,BLEND,MASH,BAKE,ADD 
DATA 1 CUP,2 TABLESPOONS,1 PINCH,4 QUARTS,1 PACKAGE 
DATA FROZEN PEAS, HORSERADISH,SUGAR,SALT,ORANGE JUICE 


Program 7 ALARM CLOCK 


“We do more before 9 a.m. than most people do all day.” 
—U.S. Army recruiting slogan 


19 REM ** ALARM CLOCK ** 
20 REM 

3@ FOR K = 1 TO 14:M$ = M$ + " ": NEXT K 
40 MS = M$ + "ALARM CLOCK" + CHRS$ (13) 
5@ FOR K = 1 TO 40@:M$ = M$ + "*"; NEXT K 
6@ TEXT : HOME : PRINT M$ 


70 TS = "CURRENT": GOSUB 468 
8@ HR = H:MN = M 
98 T$ = "ALARM": GOSUB 4680 


100 AH = H:AN = M 
11@ SC = @ 

12@ HOME : PRINT M$ 

138 VTAB 10: POKE 36,15 

14@ SG = MN: GOSUB 259 

15@ MNS = W$:SG = HR: GOSUB 258 
160 HR$ = w$:SG = SC: GOSUB 25¢ 
170 C$ = WS 

188 PRINT HRS": "MNS": "CS 

198 GOSUB 330 

200 FOR T = @ TO 440: NEXT T 


219 SC = SC + 1: IF SC < 6@ THEN 130 

228 SC = @:MN = MN + 1: IF MN < 6@ THEN 139 
230 MN = @:HR = HR + 1: IF HR <¢ 24 THEN 130 
248 HR = 1: GOTO 138 

250 SX = SG:LX = SX 

260 LX = SX 

278 LX = LX = 18: IF LX > 9 THEN 279 


286 IF LX < @ THEN LX = LX + 10 


298 HX = (SX ~ LX) / 10 
300 BS = CHRS$ (HX + 48):L$ = CHRS (LX + 48) 
31@ WS = BS + L$ 


328 RETURN 

330 IF AN < > MN THEN’ RETURN 

349 IF AH < > HR THEN RETURN 

359 AS = "" 

360 HTAB 12: VTAB 15 

37@ PRINT AS$;: FLASH : PRINT "**** ALARM **%e" 
388 NORMAL 

398 VTAB 21 

400 PRINT “STRIKE ANY KEY TO SILENCE*® 
410 PRINT "THE ALARM ..."; 

420 CALL - 198: FOR T = @ TO 10: NEXT T 
430 S = PEEK ( ~- 16384): POKE - 16368,0 
440 IF S > 127 THEN HOME : END 


10 


450 
469 
476 
486 
496 
588 
5198 
526 
536 
549 
556 


GOTO 428 

PRINT : PRINT “ENTER "TS" HOUR (@ - 23) "; 
INPUT "";H 

IF H > = @ AND H < 24 THEN 5190 

PRINT : PRINT "USE @ THRU 23 HOURS, PLEASE." 
PRINT “TRY AGAIN ...%7: GOTO 479 

PRINT :; PRINT “ENTER "TS" MINUTE (@ — 59) "; 
INPUT "";M 

IF M > = 8 AND M < 68 THEN RETURN 

PRINT : PRINT “USE @ THRU 59 MINUTES, PLEASE." 
PRINT "TRY AGAIN ..."7: GOTO 526 


11 


Program 8 TIPSY TRANSLATOR 


“Urp...” 


16 
28 
30 


— Overheard in a bar in Cleveland 


REM ** TIPSY TRANSLATOR ** 
REM 
FOR K = 1 TO 10:MH$ = MHS + CHRS$ (32): NEXT K 


4@ MHS = MHS + "TIPSY TRANSLATOR" + CHRS$ (13) 


5@ 

60 

78 

80 

98 

168 
1198 
128 
138 
140 
158 
166 
176 
180 
196 
208 
210 
220 
230 
24 
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308 
3198 
328 
338 
3498 
358 
368 
378 
388 
3968 
466 
418 
420 
430 
440 
4568 
468 
478 
488 


12 


FOR K = 1 TO 4@:MHS = MHS + "=": NEXT K 

HOME : PRINT MHS$ 

PRINT "THIS IS A VERY SOPHISTICATED PROGRAM" 

PRINT "THAT TRANSLATES THE WORDS OF A SOBER" 

PRINT "INDIVIDUAL INTO THE MUTTERINGS OF ONE" 
PRINT "WHO HAS TIPPED A FEW TOO MANY GLASSES." 
VTAB (22): PRINT "STRIKE ANY KEY TO BEGIN ..."; 
GET KS 
HOME : PRINT MHS 
PRINT “ENTER AN ENGLISH PHRASE, SENTENCE," 
PRINT "OR PARAGRAPH OF 158 CHARACTERS OR" 
PRINT "LESS. ENCLOSE THE ENTIRE ENTRY IN" 
PRINT "QUOTES IF YOU PLAN TO USE ANY COMMAS" 
PRINT "OR APOSTROPHES." 

PRINT : PRINT 

INPUT M1$ 

IF LEN (M1$) < 1 THEN 260 

IF LEN (M1$) < 151 THEN 260 

PRINT : PRINT "SHORRY ... TOO LONG." 
PRINT “TRY AGAIN IN A MOMENT ..." 
FOR T = @ TO 1060: NEXT T: GOTO 139 
HOME : PRINT MHS 

PRINT 

MS = M1$: GOSUB 520:M1$ = M$ 
PRINT 

M2S = we 
FOR N = 1 TO LEN (M1$) 

MS = MIDS (M1$,N,1) 
IF M$ = "F" THEN MS 
IF MS = "S" THEN MS 

MS = MIDS (M1$,N,2) 
IF M$ = "GH" THEN M2$ = M2S + "F":N = N + 1: GOTO 399 

MS = MIDS (M1S,N,1) 

M2$ = M2S + MS 
NEXT N 
PRINT 
FOR N = 1 TO 4@: PRINT "=";: NEXT N 
PRINT "TIPSY TRANSLATION:": PRINT 

MS = M2$: GOSUB 528 
HTAB 1: VTAB 28 
PRINT "STRIKE RETURN TO DO ANOTHER TRANSLATION" 

HTAB 6 
PRINT "(OR STRIKE THE X KEY TO END)" 
GET K$ 


"PH": GOTO 388 
"SH": GOTO 380 


“ou 


498 
568 
518 
520 
538 
546 
558 
568 
578 


IF ASC (K$) = 13 THEN 136 

IF K$ = "X" THEN HOME : END 

GOTO 489 

FOR N = 1 TO LEN (M$) 
C = ASC ( MIDS (M$,N,1)) 

PRINT CHR$ (C); 

IF POS (X) > 35 AND C = 32 THEN PRINT 
NEXT N 

RETURN 
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Program 9 ENGLISH-BOSTONEESE 


“In Boston they ask, How much does he know? In New York, How much is he worth? In 
Philadelphia, Who were his parents?” 
—Mark Twain 


1@ REM ** ENGLISH TO BOSTONEESE TRANSLATOR ** 

20 REM 

3@ MH$ = "ENGLISH TO BOSTONEESE TRANSLATOR" 

40 FOR N = @ TO 39:X$ = X$ + "="; NEXT N 

50 MHS = MHS + CHRS (13) + X$ 

6@ TEXT : HOME : PRINT MHS 

7@ PRINT "THIS IS A LANGUAGE TRANSLATION PROGRAM " 

8@ PRINT “THAT TRANSLATES ORDINARY ENGLISH INTO" 

90 PRINT “AN EQUIVALENT FORM THAT IS GENERALLY" 

100 PRINT "USED BY PEOPLE IN THE BOSTON AREA." 

110 PRINT : PRINT “YOU HAVE, IN ESSENCE, A FINE OPPOR-" 
120 PRINT “TUNITY TO COMPARE THIS UNIQUE DIALECT" 

13@ PRINT “WITH YOUR OWN.” 

148 VTAB 20: PRINT “STRIKE ANY KEY TO BEGIN ..."; 

158 GET K$ 

16@ HOME : PRINT MHS$ 

170 PRINT "ENTER AN ENGLISH PHRASE, SENTENCE" 

18@ PRINT "OR PARAGRAPH OF 12@ CHARACTERS OR" 

198 PRINT "LESS (ABOUT THREE FULL LINES). EN-" 

20@ PRINT “CLOSE THE ENTIRE ENTRY IN QUOTES" 

210 PRINT “IF YOU PLAN TO USE ANY COMMAS OR" 

228 PRINT “"APOSTROPHES." 

230 PRINT 

248 INPUT M1S 

250 IF LEN (M1$) < 1 THEN 168 

260 IF LEN (M1$) < 12@ THEN 290 

270 PRINT “SORRY, TOO MANY CHARACTERS. * 

280 PRINT "TRY AGAIN ...": PRINT : GOTO 240 

298 HOME : PRINT MHS 

300 PRINT “ORIGINAL VERSION:": PRINT 

318 MS = M1$: GOSUB 55@:M1S = M$ 

320 HTAB 1: VTAB 20: PRINT "PLEASE WAIT A MOMENT ..."; 
33@ M2$ = "" 

340 FOR N = 1 TO LEN (M1S$) 

350 IF MIDS (M1$,N,2) = "AR" THEN M$ "AH":N = N + 1: GOTO 390 
360 IF MIDS (M1$,N,2) "ER" THEN MS "A": GOTO 390 
370 IF MIDS (M1$,N,1) "O" THEN M$ = "AH": GOTO 398 
380 M$ = MIDS (M1$,N,1) 

398 M2$ = M2$ + MS 

400 NEXT N 

41@ HTAB 1: VTAB 20: PRINT "STRIKE ANY KEY TO SEE THE" 
420 PRINT “BOSTONEESE VERSION ..."; 

430 GET KS$ 

440 HOME : PRINT MHS 

45@ PRINT "BOSTONEESE VERSION:": PRINT 

46@ MS = M2$: GOSUB 558 

470 HTAB 1: VTAB 20 


owed 
ion 
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480 
490 
580 
518 
520 
538 
540 
550 
560 
578 
5808 
596 
680 


PRINT "STRIKE THE RETURN KEY TO DO ANOTHER" 
PRINT "TRANSLATION (OR STRIKE THE X KEY " 
PRINT "TO END THE PROGRAM) ..."; 

GET K$ 

IF ASC (K$) = 13 THEN 166 

IF K$ = "X" THEN HOME :. END 

GOTO 516 

FOR N = 1 TO LEN (M$) 
C = ASC ( MIDS (MS,N,1)) 

PRINT CHR$ (C); 

IF POS (X) > 35 AND C = 32 THEN PRINT 
NEXT N 

RETURN 
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Program 10 ENGLISH-BROOKLYNEESE 


“Wanna buy a bridge?” 


— Anonymous 


Notice: Similarities between this dialect and that of certain neighborhoods in Philadel- 
phia is purely coincidental. However, the author expects to receive windfall royalties 
from anyone using this program to generate dialogue for movies titled ROCKY IV 


through ROCKY XXIV. 

106 REM ** ENGLISH-TO~BROOKLYNEESE TRANSLATOR ** 
26 REM 

38 MH$ = " ENGLISH TO BROOKLYNEESE TRANSLATOR" 

46 FOR N = 8 TO 39:X$ = X$ + "=": NEXT N 

50 MHS = MHS + CHRS (13) + XS$ 

6@ TEXT : HOME : PRINT MHS 

76 PRINT "THIS IS A LANGUAGE~TRANSLATION PROGRAM" 
80 PRINT “THAT TRANSFORMS ORDINARY ENGLISH INTO" 
90 PRINT “AN EQUIVALENT FORM THAT IS GENERALLY" 
10@ PRINT "USED BY PEOPLE FROM THE BROOKLYN, NEW" 
110 PRINT "YORK, AREA." 

120 PRINT : PRINT “YOU HAVE, IN ESSENCE, A FINE OPPOR-* 
138 PRINT “TUNITY TO COMPARE THIS UNIQUE DIALECT® 
1486 PRINT "WITH YOUR OWN." 

158 VTAB 20: PRINT “STRIKE ANY KEY TO BEGIN ..."; 
160 GET KS 

1708 HOME : PRINT MH$ 

189 PRINT “ENTER AN ENGLISH PHRASE, SENTENCE" 

198 PRINT "OR PARAGRAPH OF 128 CHARACTERS OR" 

200 PRINT “LESS (ABOUT THREE FULL LINES). EN-" 
210 PRINT "CLOSE THE ENTIRE ENTRY IN QUOTES" 

220 PRINT "IF YOU PLAN TO USE ANY COMMAS OR" 

230 PRINT "“*APOSTROPHES." 

240 PRINT 

250 INPUT M1$ 

260 IF LEN (M1$) < 1 THEN 176 

270 IF LEN (M1$) < 120 THEN 300 

280 PRINT "SORRY, TOO MANY CHARACTERS." 

290 PRINT "TRY AGAIN ...": PRINT : GOTO 250 

380 HOME : PRINT MHS 

3186 PRINT "ORIGINAL VERSION:": PRINT 

320 MS = M1$: GOSUB 548:M1$ = M$ 

330 HTAB 1: VTAB 20: PRINT "PLEASE WAIT A MOMENT ..."; 
340 M2$ = "" 

35@ FOR N= 1 TO LEN (M1$) 

366 IF MIDS (M1$,N,2) = "TH" THEN M$ = "D":N = N + 1: GOTO 380 
370 MS = MIDS (M1$,N,1) 

388 M2$ = M2$ + M$ 

390 NEXT N 

400 HTAB 1: VTAB 20: PRINT “STRIKE ANY KEY TO SEE THE" 
410 PRINT "BROOKLYNEESE VERSION ...";7 

420 GET K$ 
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43 
446 
4598 
468 
470 
480 
490 
588 
5198 
528 
5398 
548 
558 
568 
570 
588 
596 


HOME : PRINT MHS 

PRINT “BROOKLYNEESE VERSION:": PRINT 
MS = M2$: GOSUB 54¢ 

HTAB 1: VTAB 20 

PRINT "STRIKE THE RETURN KEY TO DO ANOTHER" 
PRINT “TRANSLATION (OR STRIKE THE X KEY" 
PRINT "TO END THE PROGRAM) ..."; 

GET K$ 

IF ASC (K$) = 13 THEN 179 

IF K$ = "X" THEN HOME : END 

GOTO 508 

FOR N = 1 TO LEN (MS) 
C = ASC ( MIDS (M$,N,1)) 

PRINT CHRS (C); 

IF POS (X) > 35 AND C = 32 THEN PRINT 
NEXT N 

RETURN 
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Program 11 ENGLISH-GERMAN-ENGLISH 


“Was duckt un zuckt ihr?” 


18 

20 

38 

40 

58 

60 

70 

80 

90 

180 
118 
120 
130 
148 
156 
160 
178 
188 
198 
280 
216 
2208 
230 
246 
258 
2608 
270 
288 
290 
380 
318 
320 
330 
340 
358 
360 
370 


390 
406 
4108 
420 
430 
440 
458 
460 
478 
480 
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— Overheard in drugstore in Stuttgart 


REM *#* ENGLISH-GERMAN~ENGLISH TRANSLATOR ** 
REM 


MHS = "ENGLISH-GERMAN-ENGLISH TRANSLATOR" 


FOR N = @ TO 39:X$ = X$ + "=": NEXT N 


MHS = MHS + CHRS (13) + X$ 


TEXT : HOME : PRINT MH$ 
PRINT : PRINT “THIS IS AN INCREDIBLY SOPHISTICATED" 
PRINT "LANGUAGE TRANSLATION PROGRAM. IT NOT" 
PRINT “ONLY TRANSLATES FROM ENGLISH TO GERMAN," 
PRINT "BUT TRANSLATES GERMAN BACK TO ENGLISH" 
PRINT "FOR YOU." 
PRINT : PRINT "YOU HAVE, IN ESSENCE, A FINE OPPOR-" 
PRINT “TUNITY TO SEE HOW GERMAN-SPEAKING* 
PRINT "PEOPLE PERCEIVE YOUR WORDS." 
VTAB 20: PRINT "STRIKE ANY KEY TO BEGIN ...";7 
GET K$ . 
HOME : PRINT MH$ 
PRINT “ENTER AN ENGLISH PHRASE, SENTENCE" 
PRINT "OR PARAGRAPH OF 120 CHARACTERS OR" 
PRINT "LESS (ABOUT THREE FULL LINES). EN-* 
PRINT "CLOSE THE ENTIRE ENTRY IN QUOTES" 
PRINT “IF YOU PLAN TO USE ANY COMMAS OR" 
PRINT "APOSTROPHES," 
PRINT 
INPUT M1$ 
IF LEN (M1$) < 1 THEN 179 
IF LEN (M1$) < 120 THEN 300 
PRINT "SORRY, TOO MANY CHARACTERS." 
PRINT "TRY AGAIN ...": PRINT : GOTO 258 
HOME : PRINT MHS 
PRINT : PRINT "ORIGINAL ENGLISH VERSION:" 
PRINT : PRINT 
M$ = M1$: GOSUB 660:M1S = M$ 
HTAB 1: VTAB 20: PRINT "PLEASE WAIT A MOMENT ..."; 
M2S$ = we 
FOR N = 1 TO LEN (M1$) 
IF N > 1 THEN MBS = MID$ (M1$,N - 1,1) 
IF NOT (N = 1 OR MB$ = CHRS$ (32)) THEN 430 
IF MIDS (M1$,N,4) "THE" + CHRS (32) THEN 720 
IF MIDS (M1$,N,4) "AND" + CHRS$ (32) THEN 730 
IF MIDS (M1$,N,3) "IS" + CHRS$ (32) THEN MS = "IST": GOTO 500 
IF MIDS (M1$,N,2) "QU" THEN 740 
MS = MIDS (M15S,N,1) 
IF N > = LEN (Ml1$) ~ 1 THEN 500 
MAS = MIDS (M1$,N,1) 
IF ASC (MAS) = 32 THEN 49¢ 
IF MS = "V" THEN M$ = "W": GOTO 560 
IF M$ = "W" THEN M$ = "Vv" 


496 
566 
518 
520 
538 
540 
556 
568 
576 
586 
5968 
6008 
618 
626 
638 
640 
656 
660 
676 
680 
698 
706 
7186 
726 
736 
740 


IF MS = "D" THEN MS = "T* 
M2S = M2$ + M$ 

NEXT N 

HTAB 1: VTAB 20: PRINT "STRIKE ANY KEY TO SEE THE" 
PRINT "GERMAN-ENGLISH VERSION ..."; 

GET K$ 

HOME : PRINT MHS 

PRINT : PRINT “GERMAN-ENGLISH TRANSLATION:": PRINT 


MS = M2$: GOSUB 666 
HTAB 1: VTAB 20 
PRINT "STRIKE THE RETURN KEY TO DO ANOTHER" 
PRINT “TRANSLATION (OR STRIKE THE X KEY" 
PRINT “TO END THE PROGRAM) ..."; 
GET KS 
IF ASC (K$) = 13 THEN 1786 
IF K$ = "X" THEN HOME : END 
GOTO 620 
FOR N = 1 TO LEN (MS) 
C = aASC ( MID$ (M$,N,1)) 
PRINT CHRS (C); 
IF POS (X) > 35 AND C = 32 THEN PRINT 
NEXT N 
RETURN 
MS = "DER ":N = N + 3: GOTO 506 
MS = "UND ":N = N + 3: GOTO 500 
MS = "KV":N = N + 1: GOTO 560 
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Program 12 ENGLISH-JAPANESE-ENGLISH 


“Ha-sha she yendo?” 


16 

208 

30 

40 

58 

60 

76 

80 

90 

160 
1168 
126 
136 
146 
158 
166 
176 
186 
196 
208 
216 
2208 
236 
248 
258 
266 
2708 
286 
298 
3008 
316 
320 
336 
3408 
358 
3608 
378 
388 
3968 
400 
416 
4208 
430 
440 
458 
468 
470 
489 
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— Overheard on a school bus in Albuquerque 


REM ** ENGLISH-JAPANESE-ENGLISH TRANSLATION PROGRAM ** 
REM 


MH$ = "“ENGLISH-JAPANESE-ENGLISH TRANSLATOR" 


FOR N = @ TO 39:X$ = X$ + “=": NEXT N 


MHS = MH$ + CHRS$ (13) + X$ 


TEXT : HOME : PRINT MHS 

PRINT "THIS IS AN INCREDIBLY SOPHISTICATED" 

PRINT "LANGUAGE-TRANSLATION PROGRAM. IT NOT" 

PRINT "ONLY TRANSLATES FROM ENGLISH TO JAPAN~" 
PRINT “ESE, BUT TRANSLATES THE JAPANESE BACK" 
PRINT "INTO ENGLISH FOR YOU," 

PRINT : PRINT "YOU HAVE, IN ESSENCE, A FINE OPPOR-" 
PRINT "TUNITY TO SEE HOW JAPANESE~SPEAKING" 
PRINT "PEOPLE PERCEIVE YOUR WORDS." 

VTAB 20: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
GET K$ 

HOME : PRINT MHS 

PRINT "ENTER AN ENGLISH PHRASE, SENTENCE" 
PRINT "OR PARAGRAPH OF 126 CHARACTERS OR" 
PRINT "LESS (ABOUT THREE FULL LINES). EN-" 
PRINT "CLOSE THE ENTIRE ENTRY IN QUOTES" 
PRINT "IF YOU PLAN TO USE ANY COMMAS OR" 
PRINT *APOSTROPHES." 

PRINT 

INPUT M1$ 

IF LEN (M1S) < 1 THEN 1798 

IF LEN (M1$) < 12@ THEN 300 

PRINT "SORRY, TOO MANY CHARACTERS." 

PRINT "TRY AGAIN ...": PRINT : GOTO 259 

HOME : PRINT MHS 

PRINT "ORIGINAL ENGLISH VERSION:":; PRINT 

MS = M1$: GOSUB 56@0:M1$ = M$ 
HTAB 1: VTAB 2@: PRINT “PLEASE WAIT A MOMENT ..."; 

M2$ = "" 

FOR N = 1 TO LEN (M1$) 

MS = MIDS (M1$,N,1) 
IF MS = "L" THEN M2$ 
IF M$ = "R" THEN M2$ 

M2$ = M2S + MS 
NEXT N 
HTAB 1: VTAB 2@: PRINT "STRIKE ANY KEY TO SEE THE" 
PRINT “JAPANESE~ENGLISH VERSION ..."; 

GET K$ 

HOME : PRINT MHS 

PRINT "JAPANESE-ENGLISH TRANSLATION: ": PRINT 

IPF INT (3 * RND (1)) = @ THEN M2$ = “AHH, SO! " + M2$ 

MS = M2$: GOSUB 566 
HTAB 1: VTAB 208 


M2$ + "R": GOTO 400 
M2$ + "L": GOTO 460 


Hou 


490 
508 
518 
520 
538 
548 
558 
560 
578 
580 
590 
600 
6186 


PRINT “STRIKE THE RETURN KEY TO DO ANOTHER" 
PRINT "TRANSLATION (OR STRIKE THE X KEY" 
PRINT "TO END THE PROGRAM) ..."; 

GET K$ 

IF ASC (K$) = 13 THEN 1798 

IF K$ = "X* THEN HOME : END 

GOTO 520 

FOR N = 1 TO LEN (MS) 
C = ASC ( MID$ (MS$,N,1)) 

PRINT CHRS (C); 

IF POS (X) > 35 AND C = 32 THEN PRINT 
NEXT N 

RETURN 
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Program 13 ENGLISH-SPANISH-ENGLISH 


“Tu llevas espinica entre los dientes!” 


19 

20 

36 

46 

58 

68 

70 

89 

98 

166 
118 
126 
136 
146 
158 
166 
170 
188 
196 
208 
218 
228 
236 
248 
258 
268 
276 
286 
298 
308 
318 
3298 
330 
348 
358 
368 
3708 
388 
398 
406 
419 
420 
4390 
4408 
458 
4608 
4708 
489 
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—Overheard in a restaurant in Boca Raton 


REM ** ENGLISH-SPANISH-ENGLISH TRANSLATION PROGRAM ** 
REM 


MH$ = “ENGLISH~SPANISH-ENGLISH TRANSLATOR" 


FOR N = @ TO 39:X$ = X$ + "=": NEXT N 


MHS = MH$ + CHRS (13) + X$ 


TEXT : HOME : PRINT MHS 
PRINT "THIS IS AN INCREDIBLY SOPHISTICATED" 
PRINT “LANGUAGE~-TRANSLATION PROGRAM. IT NOT" 
PRINT “ONLY TRANSLATES FROM ENGLISH TO SPAN-" 
PRINT “ISH, BUT TRANSLATES THE SPANISH BACK" 
PRINT "INTO ENGLISH FOR YOU." 
PRINT : PRINT "YOU HAVE, IN ESSENCE, A FINE OPPOR-" 
PRINT *TUNITY TO SEE HOW SPANISH-SPEAKING" 
PRINT "PEOPLE PERCEIVE YOUR WORDS." 
VTAB 20: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
GET K$ 
HOME : PRINT MHS 
PRINT "ENTER AN ENGLISH PHRASE, SENTENCE" 
PRINT "OR PARAGRAPH OF 128 CHARACTERS OR" 
PRINT “LESS (ABOUT THREE FULL LINES). EN-" 
PRINT "CLOSE THE ENTIRE ENTRY IN QUOTES" 
PRINT "IF YOU PLAN TO USE ANY COMMAS OR" 
PRINT "APOSTROPHES." 


PRINT 

INPUT M1$ 

IF LEN (M1$) < 1 THEN 176 

IF LEN (M1$) < = 128 THEN 300 


PRINT “SORRY, TOO MANY CHARACTERS." 
PRINT "TRY AGAIN ...": PRINT : GOTO 259 
HOME : PRINT MHS 
PRINT “ORIGINAL ENGLISH VERSION:": PRINT 
MS = M1$: GOSUB 57@:Ml1$ = M$ 
HTAB 1: VTAB 280: PRINT “PLEASE WAIT A MOMENT ..."; 
M2$ = "*:MBS = CHRS (32) 
FOR N = 1 TO LEN (M1$) 
M$ = MIDS (M1$,N,1) 
IF N > 1 THEN MBS = MIDS (M1$,N - 1,1) 
IF NOT (N = 1 OR’ ASC (MBS) = 32) THEN 418 
IF M$ = "S" THEN M2$ M2$S + "E" + MS: GOTO 426 
IF MS = "I* THEN M2$ M2$ + "EE": GOTO 426 
M2$ = M2$ + M$ 
NEXT N 
HTAB 1: VTAB 28: PRINT “STRIKE ANY KEY TO SEE THE® 
PRINT “"SPANISH-ENGLISH VERSION ..."; 
GET KS$ 
HOME : PRINT MHS 
PRINT “SPANISH-~ENGLISH TRANSLATION:": PRINT 
MS = M2$: GOSUB 5798 


490 
568 
518 
528 
538 
548 
558 
568 
570 


HTAB 1: VTAB 28 

PRINT "STRIKE THE RETURN KEY TO DO ANOTHER" 
PRINT “TRANSLATION (OR STRIKE THE X KEY" 
PRINT “TO END THE PROGRAM) ..."; 

GET K$ 

IF ASC (K$) = 13 THEN 1798 

IF K$ = "X" THEN HOME : END 

GOTO 538 

FOR N = 1 TO LEN (M$) 


586 C = ASC ( MIDS (MS,N,1)) 


598 
680 
618 
620 


PRINT CHRS$ (C); 

IF POS (X) > 35 AND C = 32 THEN PRINT 
NEXT N 

RETURN 
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Program 14 PIG-LATIN GENERATOR 


“Ifa ouya anca eadra istha, ouya area oota arnda osecla.” 
—Ullafa Olonyba 


It is often difficult to assess the most positive elements of modernized American 
education. It is far easier to feel badly about what has been lost. Four generations of 
Americans have not been exposed to the beauty and cultural insight that is inherent ina 
serious study of Pig Latin. 


1@ REM ** PIG-LATIN GENERATOR ** 

20 REM 

3@ FOR N = 1 TO 10:HS$ = H$ + CHRS (32): NEXT N 
40 HS = H$ + "PIG-LATIN GENERATOR® + CHRS (13) 
5@ FOR N = 1 TO 4@:H$ = HS + ",": NEXT N 

60 DIM WS$(1@1) 

76 TEXT : HOME : PRINT HS 

88 PRINT “ENTER A PLAIN-ENGLISH PHRASE OR SEN-~" 
96 PRINT "TENCE OF LESS THAN 1086 WORDS. PLEASE" 
10@ PRINT "USE NO PUNCTUATION AND DO NOT STRIKE" 
1180 PRINT “THE RETURN KEY UNTIL YOU ARE DONE." 
126 PRINT 

13@ INPUT PS 

146 IF LEN (PS) > 1 THEN 176 

156 PRINT : PRINT “QUIT FOOLING AROUND. TRY AGAIN ..." 
166 PRINT : GOTO 138 

170 IF LEN (PS) < 226 THEN 210 

1886 PRINT : PRINT "SORRY, TOO MANY CHARACTERS." 
190 PRINT "ENTER AGAIN AS SOON AS WE'RE SET UP. 
206 FOR T = @ TO 2500: NEXT T: GOTO 78 

216 HOME ;: PRINT HS 

220 PRINT “HERE IS YOUR PLAIN~ENGLISH ENTRY:": PRINT 
230 MS = PS: GOSUB 678 

248 W= 1 

256 FOR N = 1 TO LEN (PS) 

268 CH$ = MIDS (P$,N,1) 

270 IF CHS = CHRS$ (32) THEN 290 

286 WS(W) = WS(W) + CHS: GOTO 350 

290 W=weil 

3060 IF W < 160 THEN 358 

316 PRINT : PRINT "SORRY, TOO MANY WORDS." 

320 PRINT "ENTER A SHORTER VERSION AS SOON AS" 
330 PRINT "WE'RE SET UP AGAIN." 

340 FOR T = @ TO 2500: NEXT T: GOTO 70 

350 NEXT N 

360 VTAB 21: PRINT "PLEASE WAIT A MOMENT." 

376 FOR N = 1 TOW 

388 FOR M = 1 TO LEN (W$(N)) 

396 CHS = MIDS (WS(N),M,1) 

406 FS = "" 

416 RESTORE 

428 DATA A,E,I1,0,U 
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430 
440 
450 
460 
470 
480 
490 
588 
518 
520 
5308 
548 
556 
560 
570 
5898 
5998 
600 
618 
628 
638 
648 
650 
668 
670 
688 
698 
760 
710 
720 


FOR X = 1 TO 5 

READ D$ 

IF CHS < > DS THEN 498 

IF M = 1 THEN 480 
FS = LEFTS (WS(N),M ~ 1) 
WS(N) = MIDS (WS(N),M) + FS + "A": GOTO 509 

NEXT X,M 

NEXT N 
POS = "* 

FOR N = 1 TOW 
POS = POS + WS(N) + CHR$ (32) 

NEXT N 

VTAB 21: PRINT “OK, STRIKE ANY KEY TO SEE THE PIG-* 
PRINT "LATIN VERSION ..."; 

GET K$ 

HOME : PRINT HS 

PRINT "PIG-LATIN VERSION:": PRINT 
MS = POS: GOSUB 679 

FOR N = 1 TO 100:WS(N) = "": NEXT N 

VTAB 21: PRINT “WANT TO DO ANOTHER TRANSLATION (Y/N) ?"; 
GET K$ 

IF K$ = "Y" THEN 79 

IF K$ = "N" THEN HOME : END 

GOTO 639 

FOR N = 1 TO LEN (MS) 
CHS = MIDS (M$,N,1) 

PRINT CHS; 

IF POS (X) > 32 AND CH$ = CHRS$ (32) THEN PRINT 
NEXT N: PRINT 

RETURN 
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“Ah 


18 
20 
30 
40 
58 
68 
70 
82 
98 
100 
118 
120 
138 
148 
158 
169¢ 
170 
180 
198 
208 
218 
228 
230 
248 
258 
260 
278 
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Program 15 SINGING COMPUTER 


, [it is] music to mine ears.” 


— Beethoven 


REM ** SINGING COMPUTER ** 
REM 
FOR N = 1 TO 12:M$ = M$ + CHRS$ (32): NEXT N 
MS = MS + “SINGING COMPUTER" + CHRS (13) 
FOR N = 1 TO 40:M$ = MS + "¥": NEXT N 
TEXT : HOME : PRINT MS 
GOSUB 219 
VTAB 22: PRINT "STRIKE ANY KEY TO STOP THE MUSIC ..."; 
HTAB 1: VTAB 6 
R = 8 * RND (l) +1 
POKE 6,R 
POKE 7,49 * RND (1) + 20 
IF R > 6 THEN PRINT "DAH.": CALL — 868: GOTO 169 
IF R > 4 THEN PRINT "LA-";: GOTO 138 
PRINT "DE-"; 
CALL 768 
IF PEEK (37) > 19 THEN HTAB 1: VTAB 6 
K = PEEK ( ~ 16384): POKE - 16368,9 
IF K > 127 THEN HOME : END 
GOTO 190 
DATA 164,6,162,4,165,7,32,168,252,173 
DATA 48,192,202,208,245,136 
DATA 208,240,96 
FOR A = @ TO 18 
READ D: POKE 768 + A,D 
NEXT A 
RETURN 


Program 16 MUSICAL KEYBOARD 


“Play it again, Sam.” 


19 
20 
39 
40 
58 
68 
70 
89 
98 
199 
116 
129 
138 
148 
159 
169 
170 
189 
198 
260 
219 
229 
238 
249 
258 


—Attributed to the film, Casablanca 


REM ** MUSICAL KEYBOARD ** 
REM 
FOR N = 1 TO 12:M$ = M$ + CHRS$ (32): NEXT N 


MS = MS + "MUSICAL KEYBOARD" + CHRS$ (13) 


FOR N = 1 TO 40:M$ = M$ + *$#": NEXT N 
GOSUB 198 

POKE 6,8 

TEXT : HOME : PRINT M$ 


PRINT : PRINT “TICKLE THE KEYS ..." 

VTAB 21: PRINT “TYPE * TO DO SOMETHING ELSE ..."* 
VTAB 8 

GET K$: IF K$ = "*" THEN HOME : END 

IF ASC (K$) < 33 THEN 129 


PRINT CHRS (32); 

POKE 7, ASC (K$) - 32 

CALL 768 

IF PEEK (37) > 19 THEN VTAB 8 
GOTO 128 


DATA 164,6,162,4,165,7,32,168,252,173 
DATA 48,192,282,2098, 245,136 

DATA 298, 249,96 

FOR A = @ TO 18 

READ D: POKE 768 + A,D 

NEXT A 

RETURN 
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Program 17 ~ CRYPTOGRAM GENERATOR 


“Bvo xgzm dt bvo bvdjy” 


— Tvzpotxozso 


If you are a cryptogram puzzle fan, you will no longer have to spend money on puzzle 
books and magazines. 


18 

20 

38 

40 

5@ 

60 

70 

8a 

98 

1280 
118 
120 
138 
148 
158 
160 
178 
1890 
190 
280 
218 
220 
230 
248 
258 
260 
278 
288 
290 
380 
310 
320 
3308 
340 
350 
3608 
3708 
380 
398 
400 
410 
420 
430 
440 
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REM ** CRYPTOGRAM GENERATOR ** 
REM 
DIM C(26) 


P$(1) = "CRYPTOGRAM" + CHRS (32) 
P$(2) = "GENERATOR" 


FOR K = 1 TO 40:P$(3) = P$(3) + "=": NEXT K 


P$(3) = CHRS$ (13) + P$(3) + CHRS$ (13) 


TEXT HOME : PRINT P$(1);P$(2);P$(3) 
PRINT : PRINT “NOW GENERATING THE CODE." 
VTAB 16: PRINT "PLEASE "; 
FLASH : PRINT "WAIT";: NORMAL 
PRINT " A MOMENT ..." 
FOR N = 1 TO 26 
C(N) = INT (26 * RND (1)) +1 
IF N = 1 THEN 200 
FOR X = 1TON- 1 
W = PEEK ( — 16336) 
IF C(N) = C(X) THEN 148 
NEXT X 
NEXT N 
CALL —- 198 
HOME : PRINT P$(1);P$(2);P$(3) 
PRINT "ENTER THE MESSAGE TO BE ENCODED." 
PRINT “ENCLOSE IT IN QUOTES AND USE NO MORE" 
PRINT "THAN 16@ CHARACTERS (ABOUT 4 FULL" 
PRINT "LINES).": PRINT 
INPUT PLAINS 
L = LEN (PLAINS) 
IF L <¢ 1 THEN 220 
IF L < = 160 THEN 330 
PRINT :; PRINT "TOO LONG. TRY AGAIN ...": PRINT 
GOTO 279 
HOME : PRINT P$(1);P$(3) 
PUZZLE$ = "*" 
FOR N = 1 TO L 
CHAR = ASC ( MID$ (PLAINS,N,1)) 
IF CHAR < 65 OR CHAR > 9@ THEN 399 
CHAR = C(CHAR — 64) + 64 
PUZZLE$ = PUZZLES + CHR$ (CHAR) 
NEXT N 
PRINT PUZZLES 
VTAB 21: PRINT "STRIKE ANY KEY TO SEE THE ANSWER ..."; 
GET KS 
HOME : PRINT P$(1);P$(3) 


456 
460 
476 
4808 
496 
588 
518 


PRINT PUZZLE$: PRINT : PRINT : PRINT PLAINS 


VTAB 21: PRINT “DO YOU WANT TO DO ANOTHER CRYPTOGRAM" 
PRINT (Y/N) 2"; 


GET K$ 

IF K$ = "¥" THEN 88 
IF K$ = "N" THEN END 
GOTO 488 


Program 18 WORLD BANK UPDATE 


1723-44458-200010 


10 
20 
30 
40 
58 
60 
70 
80 
90 
100 
110 
120 
130 
148 
158 
160 
178 
180 
198 
200 
218 
220 
230 
248 
2508 
260 
270 
280 


300 
310 
320 
330 
340 
358 
360 
370 
380 
398 
400 
410 
420 
430 
440 
450 
460 
470 
480 
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—(Paul’s Swiss bank account number) 


REM ** WORLD BANK UPDATE ** 
REM 


FOR K 1 TO 10:M$ = M$ + CHRS$ (32): NEXT K 


MS = MS + "MONETARY CONVERSION" + CHRS$ (13) 


FOR K = 1 TO 40:M$ = MS + "S$": NEXT K 
FOR N = 1 TO 6: READ C$(N): NEXT N 
TEXT : HOME : PRINT M$ 
PRINT "THE WORLD'S MONETARY PICTURE IS OFTEN" 

PRINT “UNSTABLE AGAINST THE AMERICAN DOLLAR." 

PRINT : PRINT "THIS PROGRAM HELPS YOU KEEP TRACK OF* 
PRINT "THE SITUATION AT 3@-SECOND INTERVALS." 

VTAB 21: PRINT “STRIKE ANY KEY TO BEGIN ..."; 

GET K$ 

HOME : PRINT M$ 

PRINT “ENTER THE CURRENT HOUR (1~12) "; 

INPUT "";CH:CH = INT (CH) 

IF CH > @ AND CH < = 12 THEN 198 

PRINT "TRY AGAIN ...";: GOTO 160 

PRINT : PRINT "ENTER THE CURRENT MINUTE (9-59) "; 
INPUT "";CM:CM = INT (CM) 

IF CM > = @ AND CM < = 59 THEN 358 

PRINT "TRY AGAIN ...";: GOTO 209 

HOME : PRINT M$ 


VTAB 6 
FOR N = 1 TO 6 
D$ = LEFTS ( STRS (4 * RND (1) + 1),4) + CHRS (32) 


PRINT "$1 U.S.= "DS;C$(N) 

PRINT : NEXT N 

HTAB 1: VTAB 21 

PRINT "STRIKE ANY KEY TO CLOSE FOR THE DAY ..." 
RETURN 

DATA AUSTRALIAN DOLLARS, BRAZILIAN CRUZEIROS 
DATA CHINESE YUAN,FRENCH FRANCS 

DATA DEUTSCHE MARKS,BRITISH POUNDS 


FOR HR = CH TO 12 
FOR MN = CM TO 59 
FOR SC = @ TO 59 


IF SC = @ OR SC = 3@ THEN GOSUB 238 
HRS = "9" + STRS (HR) 

IF LEN (HRS) > 2 THEN HRS = RIGHTS (HRS,2) 
MNS = "@" + STRS (MN) 

IF LEN (MNS) > 2 THEN MNS 
sc$ = "9" + STRS (SC) 

IF LEN (SC$) > 2 THEN SCS$ RIGHTS (SC$,2) 
TS = HRS + "3" + MNS + ":" + SCS 

HTAB 1: VTAB 4 

INVERSE : PRINT T$: NORMAL 

FOR T = @ TO 30 


RIGHTS (MNS, 2) 


4998 
5808 
518 
520 
530 
548 


K = PEEK ( - 16384): POKE 


IF K > 
NEXT T 


127 THEN VTAB 22: 


NEXT SC,MN 


CM = 6: 
CH = l: 


NEXT HR 
GOTO 358 


- 16368,8 
END 
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Program 19 SPOONERISMS 


Customer: Give me a cup of tea and a muttered buffin. 
Waitress: You mean a buffered muttin. 
Customer: No, I mean a muffered buttin. 
Waitress: Why not settle for tea and doughnuts? 
—Overheard in truck stop near Virginia Beach 


18 REM ** SPOONERISMS ** 
20 REM 

38 FOR K = 1 TO 14:M$ = M$ + CHRS (32): NEXT K 

40 MS = M$ + "SPOONERISMS" + CHRS (13) 

5@ FOR K = 1 TO 40:M$ = MS + "*": NEXT K 

6@ TEXT : HOME : PRINT M$ 

70 PRINT "HERE IS A SPOONERISM:": PRINT 

88 PRINT TAB( 5) "BUTTERED TOAST" 

98 PRINT TAB( 9)*IS" 

196 PRINT TAB( 5)"TUTTERED BOAST" 

118 VTAB 21: PRINT “STRIKE ANY KEY TO DO SOME SPOONER-" 
128 PRINT "“ISMS OF YOUR OWN..."; 

130 GET K$ 

149 HOME : PRINT M$ 

15@ PRINT "ENTER A 2-WORD PHRASE:": PRINT 

168 INPUT PS 

176 IF LEN (P$) > 1 THEN 190 

186 PRINT : GOTO 158 

199 xX$ = P$: GOSUB 429 


200 GS = RIGHTS (X$,LP —- LEN (Y$)) 
210 FS = Y$ 
228 LP = LEN (G$) 


230 FOR N = 1 TO LP 

240 CHS = MID$ (G$,N,1) 

250 IF CH$ = CHRS$ (32) THEN 280 

260 NEXT N 

270 PRINT : PRINT "NOT ENOUGH WORDS. TRY AGAIN.": GOTO 158 


280 H$ = RIGHTS (G$,LP - N) 

290 GS = LEFTS (G$,N) 

300 X$ = H$: GOSUB 428 

318 I$ = RIGHTS (X$,LP - LEN (Y$)) 
328 L$ = Y$ 


330 HOME : PRINT MS: PRINT 

348 PRINT P$: PRINT : PRINT "IS": PRINT 
358 PRINT L$ + G$ + CHRS (32) + FS + I$ 
368 VTAB 21: PRINT “WANT TC DO ANOTHER ONE (Y/N) ?"; 
376 GET K$: IF K$ = "Y" THEN 146 

386 IF K$ = "N" THEN HOME : END 

398 GOTO 378 

418 DATA A,E,I,0,U 

420 LP = LEN (X$) 

438 Y$ = "™" 

449 FOR N = 1 TO LP 

458 CH$ = MIDS (X$,N,1) 
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460 
470 
480 
490 
5608 
5198 
5298 


RESTORE 

FOR X = 1 TO 5: READ D$ 
IF D$ = CH$ THEN RETURN 
NEXT X 
Y$ = Y$ + CHS$ 

NEXT N 

RETURN 
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! 


Program 20 TYPING HELPER / 


“The man who makes no mistakes does not usually make anything.” 
—Bishop W.C. Magee 


If you experience any difficulty with the use of this program, you might do well to consult 
the Cussing Program. 


16 REM ** TYPING HELPER ** 

20 HTAB 1: VTAB 21 

30 FOR N = 1 TO 14:X$ = X$ + CHRS (32): NEXT N 
40 FOR N = 1 TO 40:Y$ = Y$ + "#":; NEXT N 

50 MS = X$ + "TYPING HELPER" + CHRS$ (13) + YS 
60 TEXT : HOME : PRINT MS 

70 E = 90 

80 PRINT “TYPE A SENTENCE OF YOUR CHOICE. DO NOT" 
96 PRINT “STRIKE THE RETURN KEY UNTIL YOU ARE" 
106 PRINT "DONE." 

116 PRINT Y$ 

126 VTAB 8 

13@ GOTO 198 

149 GET K$ 

150 IF K$ = CHRS$ (13) THEN 270 

160 IF ASC (KS) < 64 OR INT (6 * RND (1)) < > @ THEN 
170 E=E +1 

186 KS = CHRS (32 * RND (1) + 64) 

199 CH = PEEK (36):CV = PEEK (37) 

200 HTAB 1: VTAB 21 

219 INVERSE : PRINT “ERRORS: “E 

22@ NORMAL : HTAB CH + 1: VTAB CV + 1 

238 CALL - 198 

249 IF PEEK (37) > 18 THEN HTAB 1: VTAB 16 
250 PRINT KS; 

260 GOTO 140 

270 HTAB l: VTAB 23 

280 PRINT “WANT TO TRY DOING BETTER (Y/N)?"; 


290 GET S$ 

306 IF S$ = "N" THEN END 
316 IF S$ = "Y" THEN 68 
3268 GOTO 290 
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Program 21 LETTER SCRAMBLER 


Q: What four-letter word, when printed in capitals, reads the same forward, backward 
and upside down? 


A: NOON 

19 REi ** LETTER SCRAMBLER ** 

28 REM 

38 FOR N = 1 TO 12:X$ = X$ + CHRS$ (32) 

46 FOR N = 1 TO 40:Y$ = Y$ + “=s": NEXT N 

56 M$ = X$ + "LETTER SCRAMBLER" + CHRS (13) + Y$ 
66 TEXT : HOME : PRINT M$ 

76 PRINT "THIS PROGRAM ALLOWS YOU TO ENTER A WORD" 
89 PRINT "OR PHRASE OF 16 CHARACTERS OR LESS. IT" 
96 PRINT "THEN SCRAMBLES THE CHARACTERS FOR YOU." 
100 VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
11@ GET K$ 

126 DIM CH$(17),C(17) 

136 HOME : PRINT M$ 

146 PRINT "ENTER A WORD OR PHRASE OF 16 CHARACTERS" 
15@ PRINT "OR LESS. ENCLOSE YOUR ENTRY IN QUOTES" 
166 PRINT "IF YOU MUST USE A COMMA OR APOSTROPHE." 
170 PRINT : INPUT FWS$ 

189 L = LEN (FWS) 

196 IF L > @ THEN 226 

268 PRINT "PLEASE ENTER SOMETHING." 

216 GOTO 176 

220 IF L < 17 THEN 246 

236 PRINT : PRINT "TOO MANY CHARACTERS. TRY AGAIN.": GOTO 176 
240 VTAB 16: CALL —- 958 

250 VTAB 21: PRINT “PLEASE WAIT ..." 

266 FOR N=1 TOL 

276 CH$(N) = MIDS (FWS,N,1) 

286 C(N) = INT (L * RND (1)) + 1 

296 IF N = 1 THEN 330 

308 FOR X=1TON-1 

310 IF C(N) = C(X) THEN 2898 

326 NEXT X 

336 NEXT N 

346 Sw$ = "" 

356 FOR N=1 TOL 

36@ SWS = SWS + CHS$(C(N)) 

376 NEXT N 

386 HOME : PRINT M$ 

39@ PRINT “ORIGINAL VERSION:" 

400 PRINT : PRINT TAB( 5)FWS 

41@ PRINT : PRINT "SCRAMBLED VERSION:*" 

426 PRINT : PRINT TAB( 5)SWS 

438 PRINT : PRINT Y$ 

446 VTAB 18 

450 PRINT "SELECT ONE:": PRINT 

466 PRINT TAB( 5)"1 —- SCRAMBLE THE SAME WORD AGAIN. 
478 PRINT TAB( 5)"2 — SCRAMBLE A NEW WORD. 
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480 
498 
588 
518 
5208 


36 


PRINT TAB( 5)"3 ~ END THE PROGRAM. 
GET K$ 

IF KS < "1" OR K$ > "3" THEN 49¢ 
ON VAL (K$) GOTO 240,130 

END 


Program 22 LETTER-SCRAMBLE GAME 


“Dmoph glubble muff pssht wumph!” 


18 

28 

30 

40 

58 

68 

78 

86 

98 

188 
118 
128 
138 
148 
158 
160 
178 
180 
198 
288 
218 
228 
238 
248 
258 
260 
278 
2898 
298 
380 
3186 
328 
330 
348 
358 
368 
378 
386 
398 
408 
410 
420 
436 
440 
450 
460 
470 
480 


— Demosthenes 


REM ** LETTER-SCRAMBLE GAME ** 
REM 
DIM CH$(16) ,C(16) 
FOR K = 1 TO 10:M$ = M$ + CHR$ (32): NEXT K 
MS = M$ + "LETTER-SCRAMBLE GAME*® + CHRS (13) 
FOR K = 1 TO 40:M$ = M$ + “-": NEXT K 
TEXT : HOME : PRINT MS 
PRINT "THIS IS A WORD-GUESSING GAME FOR TWO" 
PRINT “PLAYERS.": PRINT 
FOR N = 1 TO 2 
PRINT 
PRINT "PLAYER "N", ENTER YOUR FIRST NAME:": PRINT 
HTAB 1: VTAB 4 * N + 6: CALL — 868 
INPUT "*";N$(N) 
CALL =~ 958 
IF LEN (N$(N)) < 1 THEN 139 
IF LEN (NS(N)) < 12 THEN 199 
PRINT “AWW, GET SERIOUS. TRY AGAIN ...";: GOTO 130 
NEXT N 
PH = 1 
HOME : PRINT M$ 
EP$ = N$(1):GP$ = N$(2) 
IF PH = ~ 1 THEN EP$ = N$(2):GP$ = NS$(1) 
PRINT EP$", MAKE YOUR ENTRY:": PRINT 
PRINT "ENTER A WORD OR SHORT PHRASE UP TO 16" 
PRINT “CHARACTERS LONG. ENCLOSE IT IN QUOTES" 
PRINT “IF YOU USE A COMMA OR APOSTROPHE, AND" 
PRINT "MAKE SURE THAT YOUR OPPONENT ISN'T" 
PRINT "LOOKING OVER YOUR SHOULDER. *" 
PRINT : INPUT FWS 
L = LEN (FWS) 
IF L > 1 THEN 349 
PRINT "YOU MUST ENTER SOMETHING ...": GOTO 300 
IF L < 17 THEN 379 


PRINT "TOO MANY CHARACTERS. TRY AGAIN ..." 
GOTO 308 

VTAB 21: PRINT “PLEASE WAIT ..." 
sws = wer 


FOR N= 1 TOL 

CH$(N) = MID$ (FWS,N,1) 

C(N) = INT (L * RND (1)) +1 
IF N = 1 THEN 460 


FOR X = 1TON- 1 

IF C(N) = C(X) THEN 418 
NEXT X 

NEXT N 


FOR N= 1 TO L 
SwS = SWS + CHS$(C(N)) 
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498 
508 
518 
526 
538 
546 
556 
560 
5798 
588 
598 
680 
616 
620 
638 
6408 
658 
6698 
678 
688 
6908 
708 
718 
720 
738 
749 
758 
768 
778 
788 
798 
868 
819 
828 
830 
848 
858 
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NEXT N 
HOME : PRINT M$ 

PRINT "OK,"GPS$":": PRINT 

PRINT "SEE IF YOU CAN GUESS THIS WORD:" 

HTAB (40 ~ L) / 2: VTAB 8 

INVERSE : PRINT SWS: NORMAL 

PRINT : PRINT "ENTER YOUR GUESS WHEN YOU THINK YOU'VE" 
PRINT "FIGURED IT OUT ..." 

PRINT : INPUT GWS 

IF LEN (GWS) > 1 THEN 6098 

PRINT "YOU MUST ENTER SOMETHING. TRY AGAIN ...": GOTO 572 
HOME : PRINT M$ 


PRINT : PRINT EP$"'S WORD WAS:" 
PRINT : PRINT TAB( 5) FWS 

PRINT : PRINT GP$"'S GUESS IS:" 
PRINT : PRINT TAB( 5)GWS 

PRINT 


IF GW$ = FWS$ THEN 756 

PRINT : PRINT "SORRY ABOUT THAT, “GP$"." 
PRINT EP$" OUTSMARTED YOU." 

PRINT : PRINT "YOU HAVE TO GUESS AGAIN." 


GOSUB 838 
GET K$ 
IF K$ "X" THEN HOME : END 


IF K$ = CHR$ (32) THEN 219 

GOTO 719 

PRINT : PRINT “THAT'S GOOD, "GPS$"." 

PRINT : PRINT "NOW IT IS YOUR TURN TO SEE IF YOU CAN" 
PRINT "OUTSMART "EPS". " 


GOSUB 836 

GET K$ 

IF K$ = CHRS$ (32) THEN PH = PH * =- 1: GOTO 216 
IF K$ = "X" THEN HOME : END 

GOTO 796 


VTAB 21: PRINT "STRIKE THE SPACE BAR TO CONTINUE* 
PRINT "(OR THE X KEY TO END THE GAME)..."; 
RETURN 


“No 


10 

20 

38 

40 

56 

60 

70 

80 

98 

168 
118 
128 
130 
148 
158 
160 
178 
188 
198 
286 
216 
228 
238 
248 
258 
268 
278 
288 
298 
368 
318 
320 
338 
348 
358 
368 
370 
388 
398 
406 
419 
420 
430 
449 
456 
460 
478 
480 


Program 23 ‘ WORD-SCRAMBLE GAME 


I don’t. I don’t no. Don’t I no.” : 
—I.M. Reatching 


REM ** WORD-SCRAMBLE GAME ** 
REM 
DIM W$(51),C(51) 
FOR K = 1 TO 11:M$ = M$ + CHRS$ (32): NEXT K 
MS = MS + "WORD-SCRAMBLE GAME" + CHRS (13) 
FOR K = 1 TO 40:M$ = M$ + "=": NEXT K 
TEXT : HOME : PRINT M$ 
PRINT "THIS IS A WORD-SCRAMBLING GUESSING GAME" 
PRINT “FOR TWO PLAYERS.": PRINT 
FOR N = 1 TO 2 
PRINT 
PRINT “PLAYER "N", ENTER YOUR FIRST NAME:": PRINT 
HTAB 1: VTAB 4 * N + 6: CALL - 868 
INPUT "";NS(N) 
CALL —- 958 
IF LEN (NS$(N)) < 1 THEN 138 
IF LEN (NS(N)) < 12 THEN 198 
PRINT “AWW, GET SERIOUS. TRY AGAIN ...";: GOTO 13¢ 
NEXT N 
PH = 1 
HOME : PRINT M$ 
FOR N = 1 TO W:WS(N) = "": NEXT N 
EP$ = N$(1):GP$ = N$(2) 
IF PH = - 1 THEN EPS = NS$(2):GP$ = N$(1) 
PRINT EP$";": PRINT 
PRINT "ENTER A PHRASE OR SENTENCE OF 58 WORDS" 
PRINT "OR LESS. USE NO PUNCTUATION, DO NOT" 
PRINT "STRIKE THE RETURN KEY UNTIL YOU ARE* 
PRINT "DONE, AND MAKE SURE THAT YOUR OPPONENT®" 
PRINT "ISN'T LOOKING OVER YOUR SHOULDER." 
PRINT 
INPUT FWS 
L = LEN (EWS) 
IF L < 1 THEN 3206 
we=l 
FOR N = 1 TO LEN (FWS) 
CH$ = MIDS (FWS,N,1) 
IF CH$ = CHRS$ (32) THEN 400 
wS(W) = WS(W) + CHS: GOTO 464 
w=wetil 
IF W < 58 THEN 466 
PRINT : PRINT "SORRY, TOO MANY WORDS." 
PRINT “ENTER A SHORTER VERSION AS SOON AS" 
PRINT "WE'RE SET UP AGAIN." 
FOR T = @ TO 2500: NEXT T: GOTO 3986 
NEXT N 
VTAB 21: PRINT “ARE YOU SATISFIED (Y¥/N)?" 
GET K$ 
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4908 
588 
516 
528 
530 
548 
558 
560 
578 
586 
598 
608 
6106 
620 
638 
648 
658 
668 
676 
680 
690 
708 
718 
720 
738 
740 
758 
768 
776 
788 
798 
800 
810 
820 
838 
840 
858 
868 
878 
880 
890 
908 
918 
928 
930 
940 
958 
960 
9708 
988 
990 
1880 
1616 
1620 
1036 
1648 
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IF KS = "Y" THEN 520 
IF KS = "N" THEN 218 
GOTO 48¢ 
HOME : PRINT M$ 
VTAB 21: PRINT "PLEASE WAIT ..." 
FOR N = 1 TOW 
C(N) = INT (W * RND (1)) + 1 
IF N = 1 THEN 608 
FOR X = 1TON-~1 
IF C(N) = C(X) THEN 559 
NEXT X 
NEXT N 
sw$ = "" 
FOR N = 1 TOW 
SWS = SWS + WS(C(N)) + CHRS$ (32) 
NEXT N 
SwS = LEFTS (SWS, LEN (SWS) - 1) 
HOME : PRINT MS 
PRINT "OK,"GP$":": PRINT 
PRINT "SEE IF YOU CAN UNSCRAMBLE THIS PHRASE:* 
PRINT 
H$ = Sw$: GOSUB 19386 
HTAB 1: VTAB 16 
PRINT “ENTER YOUR INTERPRETATION:": PRINT 
INPUT "";wGS 
HOME : PRINT MS 


PRINT : PRINT EP$"*'S PHRASE WAS:" 
PRINT :H$ = FWS$: GOSUB 1930 

PRINT : PRINT GP$"'S GUESS IS:" 
PRINT :H$ = WGS$: GOSUB 10398 

PRINT 

GOSUB 19086 

GET K$ 


HOME : PRINT M$ 

IF WG$ = FWS THEN 9290 

PRINT : PRINT “SORRY ABOUT THAT, "GPS"." 
PRINT EP$" OUTSMARTED YOU." 

PRINT : PRINT "YOU HAVE TO GUESS AGAIN." 
GOSUB 1808 

GET K$ 

IF K$ = "X" THEN HOME : END 

IF K$ = CHRS$ (32) THEN 219 

GOTO 88@ 

PRINT : PRINT "THAT'S GOOD, "GPS$*"." 
PRINT : PRINT "NOW IT IS YOUR TURN TO SEE IF YOU CAN" 
PRINT “OUTSMART "EPS"." 


GOSUB 1806 

GET K$ 

IF K$ = CHR$ (32) THEN PH = PH * - 1: GOTO 2190 
IF K$ = "X" THEN HOME : END 

GOTO 968 


VTAB 21: PRINT "STRIKE THE SPACE BAR TO CONTINUE" 
PRINT "(OR THE X KEY TO END THE GAME)..."; 
RETURN 
INVERSE : FOR N = 1 TO LEN (HS) 
CH$ = MID$ (HS$,N,1) 


18650 
1960 
1078 
1088 
1898 


PRINT CHS; 


IF POS (X) > 32 AND CHS = 


NEXT N: 
NORMAL 
RETURN 


PRINT 


CHRS 


(32) THEN PRINT 
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Program 24 BREAK TIME 


“A break in time is worth nine.” 


158 
1606 
170 
1890 
199 
280 
218 
220 
2380 
248 
2568 
268 
276 
288 


308 
316 
320 
336 
348 
358 
368 
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— Anonymous 


REM ** BREAK TIME ** 
REM 
FOR K = 1 TO 15:M$ = M$ + CHR$ (32): NEXT K 


MS = M$ + "BREAK TIME" + CHR$ (13) 


FOR K = 1 TO 46:M$ = MS + "#": NEXT K 
TEXT : HOME : PRINT M$ 
PRINT “COMPUTERS NEED A BREAK NOW AND THEN," 
PRINT "TOO. THIS PROGRAM ENHANCES THAT FEATURE" 
PRINT "BY GIVING YOUR COMPUTER A SHORT REST -~*" 
PRINT “IT MIGHT EVEN FALL ASLEEP." 

VTAB 21: PRINT "STRIKE ANY KEY TO CONTINUE ..."; 
GET KS 

HOME : PRINT M$ 

HTAB 1: VTAB 4 

FOR N = 6 TO 5@ * RND (1) + 26 

PRINT "I'M WORKING - "; 

FOR T = @ TO 200: NEXT T 

IF PEEK (37) < 22 THEN 260 

HOME : PRINT MS: HTAB 1: VTAB 4 


NEXT N 

FOR N = 1 TO 5: CALL —- 198: NEXT N 
FLASH : PRINT "NAP ATTACK!": NORMAL 
FOR T = 1 TO 2000: NEXT T 

FOR N = 1T0 15 * RND (1) + 18 


IF PEEK (37) > 26 THEN HTAB 1: VTAB 4 
PRINT "Z-Z-Z—-"3;: CALL — 868 
FOR T = 1 TO 186 

X = PEEK ( - 16336) 


NEXT T 

FOR T = 1 TO 506: NEXT T 

NEXT N 

FOR N = 1 TO 5: CALL —- 198: NEXT N 


HOME : PRINT M$ 

FLASH : PRINT "I'M AWAKE": NORMAL 
PRINT : PRINT "PUT ME TO WORK ..." 
END 


Program 25 ESP. 


“Dee-dah-dee-ding/ dee-dah-dee-ding . . .” 


18 
26 
36 
46 
56 


—Theme tune of TV’s Twilight Zone 


REM ** ESP ** 

REM 

FOR N = 1 TO 18:X$ = X$ + CHRS$ (32): NEXT N 
Y$ = CHR$ (13) 

FOR N = 1 TO 40:¥$ = Y$ + CHRS (63): NEXT N 


66 MS = X$ + "ESP" + CHRS (13) + Y$ 


78 

88 

98 

188 
1186 
128 
138 
148 
158 
168 
178 
188 
198 
268 
218 
228 
238 
248 
258 
268 
276 
288 
298 
368 
316 
328 
338 
340 
356 
368 
378 
388 
398 
460 
410 
428 
430 
448 


TEXT : HOME : PRINT M$: PRINT 
PRINT “THIS PROGRAM DEMONSTRATES THE FACT THAT" 
PRINT “COMPUTERS DO, INDEED, POSSESS A FORM OF" 


PRINT "EXTRA-SENSORY PERCEPTION (ESP).” 

PRINT : PRINT "THE DEMONSTRATION WORKS BEST IF YOU USE" 
PRINT "AN ELECTRONIC CALCULATOR, BUT THE COM-" 
PRINT "PUTER CAN READ YOUR BRAIN WAVES WHEN-" 
PRINT "EVER THE WEATHER IS JUST RIGHT. (SEE" 
PRINT “THE WEATHER FORECASTING PROGRAM.)” 
VTAB 21: PRINT “STRIKE ANY KEY TO BEGIN ..."; 
GET K$ 
HOME : PRINT M$ 
FLASH : PRINT "“THINK*";: NORMAL 
PRINT * OF ANY NUMBER BETWEEN 1 AND 166." 
GOSUB 52@ 

= INT (186 * RND (1) + 1) 

PRINT "MULTIPLY YOUR ORIGINAL NUMBER BY "M"." 
PRINT : PRINT : INVERSE 

PRINT "BUT DON'T TELL YOUR COMPUTER ANYTHING!!" 
NORMAL : GOSUB 5298 


A= INT (5 * RND (1)) * M 


PRINT "NOW ADD *“A" TO THE PREVIOUS RESULT." 

PRINT : PRINT : INVERSE 

PRINT “BUT DON'T EVEN WHLSPER THE RESULT.": NORMAL 
PRINT : PRINT “HINT: THINK CONFUSING THOUGHTS.” 
GOSUB 526 

PRINT “DIVIDE THE LAST RESULT BY "M".* 

PRINT : PRINT “AGAIN, DON'T TELL THE COMPUTER ANYTHING!" 
VTAB 21: PRINT "STRIKE ANY KEY TO CONTINUE ..."; 
GET K$: GOSUB 550: HOME : PRINT M$ 

PRINT "FINALLY, SUBTRACT YOUR ORIGINAL NUM-" 

PRINT "BER FROM THE LAST RESULT.” 

PRINT : PRINT “THINK CONFUSING THOUGHTS." 


GOSUB 526 
FOR N = 1 TO 4: CALL -—- 198: NEXT N 
SPEED= 18: PRINT “THE ANSWER IS: "; 
SPEED= 255 


FOR N = 1 TO 4: CALL - 198: NEXT N 


450 L =A / M: PRINT L 


460 
4708 
480 


VTAB 21 
PRINT "DO YOU WANT TO CONTINUE WITH THIS" 
PRINT "FOOLISHNESS (Y/N)?"; 
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498 GET KS$ 

500 IF K$ = "Y" THEN 188 

518 GOSUB 556: TEXT : HOME : END 

5280 VTAB 21: PRINT "STRIKE ANY KEY TO CONTINUE ...";7 
53@ GET K$: GOSUB 558: HOME : PRINT M$ 

548 RETURN 


558 POKE - 16304,@: POKE ~ 16382,8 
560 FOR N = 1 TO 28 
5708 POKE -—- 16297,9 
588 FOR T = @ TO 1@ 


598 X = PEEK ( — 16336) 
608 NEXT T 

618 POKE -~- 16298,9 

628 NEXT N 

638 TEXT : RETURN 
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Program 26 WORD UNSCRAMBLER © 


“What really counts is what you learn after you know it all.” 
— Uncertain 


Are you tired of being defeated by word-scramble puzzles? This program might not 
give you the exact solutions, but it sure provides some great hints. 


16 REM ** WORD UNSCRAMBLER ** 

26 REM 

30 FOR N = 1 TO 40:¥$ = YS + "-"; NEXT N 

40 TEXT : HOME : PRINT "WORD UNSCRAMBLER" 

58 PRINT Y$ 

608 PRINT "ENTER A WORD THAT IS TO BE UNSCRAMBLED" 
70 PRINT “(NO MORE THAN 16 LETTERS) :" 

86 PRINT : INPUT "";SWS 

99 L = LEN (SWS) 

100 IF L < 1 THEN 86 

110 IF L< = 16 THEN 139 

120 PRINT "THE WORD IS TOO LONG. TRY AGAIN ...": GOTO 
138 K=1 

149 FOR N=1 TOL 

150 K = K*N 

168 NEXT N 


176 HOME 
186 INVERSE : PRINT SWS: NORMAL 
198 PRINT 


208 PRINT "UP TO "K" COMBINATIONS" 
218 PRINT Y$ 

226 FOR XL = 1 TO 16 

230 FOR N=1TOL 

248 C(N) = INT (L * RND (1)) +1 

250 IF N = 1 THEN 298 

260 FOR X=1TON-1 

278 IF C(N) = C(X) THEN 246 

288 NEXT X 

296 PRINT MIDS (SW$,C(N),1); 

300 NEXT N 

318 PRINT 

320 NEXT XL 

338 PRINT : PRINT "STRIKE THE SPACE BAR TO SEE MORE" 
348 PRINT "(OR THE X KEY TO END)..."%; 
358 GET KS$ 

368 IF K$ = CHRS$ (32) THEN 176 

370 IF K$ = "X" THEN END 

388 GOTO 358 
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Program 27 MISSING LETTERS | 


“Watson, there is perhaps more than one letter missing.” 
—Sherlock Holmes 


18 REM ** MISSING LETTERS ** 

20 REM 

3@ FOR K = 1 TO 12:MS = M$ + CHR$ (32): NEXT K 
49 MS = M$ + "MISSING LETTERS" + CHRS (13) 

5@ FOR K = 1 TO 4@:M$ = MS + "~-": NEXT K 

6@ TEXT : HOME : PRINT MS 

70 PRINT “THIS IS A WORD GAME FOR TWO PLAYERS." 


86 PRINT 

96 FOR N = 1 TO 2 

168 PRINT 

11@ PRINT "PLAYER “"N", ENTER YOUR FIRST NAME:"; PRINT 
126 HTAB 1: VTAB 4 * N + 6: CALL ~ 868 


130 INPUT "";NS$(N) 

140 CALL - 958 

15@ IF LEN (NS(N)) < 1 THEN 120 

160 IF LEN (NS(N)) < 12 THEN 189 

17@ PRINT “AWW, GET SERIOUS. TRY AGAIN ...";: GOTO 120 
180 NEXT N 

190 PH = 1 

206 HOME : PRINT MS 

210 EP$ = NS$(1):GP$ = N$(2) 

226 IF PH = ~ 1 THEN EPS = N$(2):GP$ = N$(1) 

230 PRINT EP$", MAKE YOUR ENTRY:": PRINT 

248 PRINT “ENTER A SHORT PHRASE OR SENTENCE UP TO" 
250 PRINT "30 CHARACTERS LONG (CLOSE TO ONE FULL" 
268 PRINT “LINE ON THE SCREEN). AVOID PUNCTUATION," 
270 PRINT "AND MAKE SURE THAT YOUR OPPONENT ISN'T" 
280 PRINT "LOOKING OVER YOUR SHOULDER." 

290 PRINT : INPUT FWS 

300 L = LEN (EWS) 

310 IF L > 1 THEN 330 

320 PRINT “YOU MUST ENTER SOMETHING ...": GOTO 296 
330 IF L < = 30 THEN 360 

346 PRINT “TOO MANY CHARACTERS. TRY AGAIN ..." 

358 GOTO 296 

360 Sw$ =" 

370 FOR N=1 TOL 

389 CHS = MIDS (FWS,N,1) 

3960 IF CH$ = CHRS (32) THEN CH$ = "*"; GOTO 416 
400 IF INT (N / 2) = N / 2 THEN CH$ =" * 

410 SWS = SWS + CHS os 

420 NEXT N 

430 HOME : PRINT M$ 

440 PRINT “OK,"GPS$":"; PRINT 

450 PRINT "THE FOLLOWING MESSAGE SHOWS THE LETTERS" 
460 PRINT "IN THEIR CORRECT POSITIONS. THE BLANKS" 
470 PRINT “INDICATE MISSING LETTERS AND THE" 

480 PRINT "ASTERISK(S) INDICATE SPACES BETWEEN" 
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490 
568 
519 
528 
539 
5490 
558 
560 
578 
580 
598 
680 
618 
629 
6398 
640 
658 
660 
678 
680 
690 
760 
718 
7208 
738 
748 
758 
768 
778 
788 
790 
800 
819 
8208 


PRINT "WORDS." 

HTAB (48 - L) / 2: VTAB 12 

PRINT SWS: PRINT 

PRINT : PRINT "ENTER YOUR GUESS WHEN YOU THINK YOU'VE" 
PRINT “FIGURED IT OUT ..." 

PRINT : INPUT GWS 

IF LEN (GWS) > 1 THEN 579 

PRINT "YOU MUST ENTER SOMETHING. TRY AGAIN ...": GOTO 54@ 
HOME : PRINT MS 


PRINT : PRINT EP$*"'S WORD WAS:" 
PRINT : PRINT TAB( 5)FWS 

PRINT : PRINT GPS$""'S GUESS IS:" 
PRINT : PRINT TAB( 5)GWS 

PRINT 


IF GWS = FWS THEN 729 

PRINT : PRINT "SORRY ABOUT THAT, "GPS$"." 
PRINT EP$" OUTSMARTED YOU." 

PRINT : PRINT "YOU HAVE TO GUESS AGAIN." 
GOSUB 898 

GET KS 

IF K$ = "X" THEN HOME : END 

IF KS = CHR$ (32) THEN 200 

GOTO 689 

PRINT : PRINT “THAT'S GOOD, "GP$".* 
PRINT : PRINT "NOW IT IS YOUR TURN TO SEE IF YOU CAN" 
PRINT “OUTSMART "“EPS*".* 


GOSUB 898 

GET K$ 

IF K$ = CHRS$ (32) THEN PH = PH * =~ 1: GOTO 28098 
IF KS = "X" THEN HOME : END 

GOTO 769 


VTAB 21: PRINT “STRIKE THE SPACE BAR TO CONTINUE" 
PRINT "(OR THE X KEY TO END THE GAME)..." 
RETURN 
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Program 28 FLASHING-LETTERS GAME 


“Methinks there’s another puskle comink” 


298 
308 
316 
328 
336 
348 
358 
368 
376 
388 
398 
466 
416 
426 
438 
448 
450 
468 
478 
480 
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—Popeye 


REM ** FLASHING-LETTERS GAME ** 


REM 
FOR K = 1 TO 9:M$ = M$ + CHRS$ (32): NEXT K 


MS = MS + "FLASHING-LETTERS GAME" + CHRS (13) 


FOR K = 1 TO 40:M$ = M$ + "~": NEXT K 

TEXT : HOME : PRINT M$ 

PRINT "THIS IS A WORD-GUESSING GAME FOR TWO" 
PRINT “PLAYERS.": PRINT 

FOR N = 1 TO 2 


PRINT 

PRINT “PLAYER "N", ENTER YOUR FIRST NAME:": PRINT 
HTAB 1: VTAB 4 * N + 6: CALL —~ 868 

INPUT "";NS$(N) 

CALL - 958 


IF LEN (NS(N)) < 1 THEN 120 

IF LEN (NS(N)) < 12 THEN 188 

PRINT “AWW, GET SERIOUS. TRY AGAIN ...";: GOTO 120 
NEXT N 
PH = 1 

HOME : PRINT M$ 
EPS = N$(1):GP$ = NS$(2) 

IF PH = —- 1 THEN EP$ = N$(2):GPS = N$(1) 

PRINT EP$", ENTER A WORD.": PRINT 

PRINT "USE LESS THAN 26 LETTERS, AND MAKE SURE" 
PRINT "THAT YOUR OPPONENT ISN'T LOOKING OVER" 
PRINT “YOUR SHOULDER." 

PRINT 

INPUT RS 


L = LEN (R$) 


IF L < 1 THEN 280 

IF L < = 20 THEN 330 

PRINT "TOO LONG. TRY AGAIN ...": GOTO 280 

HOME : PRINT M$ 

PRINT "OK,"GP$":": PRINT 

PRINT "SEE IF YOU CAN GUESS THIS WORD:" 

VTAB 20: PRINT "STRIKE ANY KEY WHEN YOU THINK YOU'VE" 
PRINT "FIGURED IT OUT ..." 

FOR K = 1 TO 46:B$ = B$ + CHRS$ (32): NEXT K 


CH = INT (40 - L) / 2 
HTAB 13: VTAB 12: PRINT "FLASHING CLUES" 
HTAB CH 
FOR N = 1 TO L: PRINT “=";: NEXT N 
VTAB 15 
N = INT ( RND (1) * L +1) 


cs = MIDS (R$,N,1) 
HS = we 

FOR K = 1 TO N:HS = H$ + CHRS (32): NEXT K 
H$ = H$ + C$ 


496 
508 
516 
526 
536 
546 
558 
566 
578 
588 
598 
680 
6108 
620 
636 
646 
658 
660 
678 
686 
690 
706 
719 
726 
736 
748 
758 
768 
7708 
780 
798 
888 
816 
8298 
830 
840 
856 
860 


HTAB CH - 1 
PRINT H$ 

FOR T = 1 TO 86: NEXT T 

VTAB 15: HTAB CH ~ 1: PRINT BS 

FOR T = 1 TO 56: NEXT T 
KBD = PEEK ( — 16384) 

POKE - 16368,6 

IF KBD > 127 THEN 586 

GOTO 436 

HTAB 1: VTAB 26: PRINT "WHAT DO YOU THINK IT IS?*; 
CALL ~- 958: PRINT 

INPUT "";WGS 

HOME : PRINT MS 


PRINT : PRINT EP$"'S WORD WAS: * 
PRINT : PRINT TAB( 5)R$ 

PRINT : PRINT GP$"'S GUESS IS:" 
PRINT : PRINT TAB( 5)WGS$ 

PRINT 


IF WGS$ = R$ THEN 760 
PRINT : PRINT "SORRY ABOUT THAT, "GP$"." 
PRINT EP$" OUTSMARTED YOU." 

PRINT : PRINT "YOU HAVE TO GUESS AGAIN." 
GOSUB 846 

GET K$ 

IF K$ = CHR$ (32) THEN 206 

IF K$ = "X" THEN HOME : END 

GOTO 729 

PRINT : PRINT "THAT'S GOOD, "GP$".* 
PRINT : PRINT "NOW IT IS YOUR TURN TO SEE IF YOU CAN" 
PRINT “OUTSMART "EPS". * 


GOSUB 848 

GET K$ 

IF K$ = CHRS$ (32) THEN PH = PH * = 1: GOTO 206 
IF K$ = "X" THEN HOME : END 

GOTO 889 


VTAB 21: PRINT “STRIKE THE SPACE BAR TO CONTINUE" 
PRINT "(OR THE X KEY TO END THE GAME)..."3 
RETURN 
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Program 29 CODE SKILL BUILDER 


“Practice makes perfect.” 


— Uncertain 


This program is for real. It is worth the time and effort to load this program if you want to 
learn the International Morse Code. 


18 

28 

3@ 

40 

5@ 

62 

70 

80 

98 

1808 
110 
128 
138 
148 
158 
160 
170 
180 
198 
208 
210 
220 
238 
248 
258 
268 
270 
280 
298 
308 
318 
320 
330 
340 
358 
368 
376 
380 
398 
400 
416 
420 
436 
446 
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REM ** CODE SKILL BUILDER ** 

REM 

GOSUB 676 

FOR N = 1 TO 11:M$ = M$ + CHRS$ (32): NEXT N 


M$ = M$ + "MORSE CODE GENERATOR" + CHRS (13) 


FOR N = 1 TO 4@:M$ = MS + "*"; NEXT N 
TEXT : HOME : PRINT MS 
PRINT "SELECT A TRANSMISSION RATE:" 
PRINT 
PRINT TAB( 5)"1 ~- SLOW 
PRINT TAB( 5)"2 - MEDIUM 
PRINT TAB( 5)"3 —- FAST 
PRINT : GET K$ 
IF KS < "1" OR KS > "3" THEN 130 
K = VAL (KS) 
IF K 1 THEN POKE 771,8 
IF K 2 THEN POKE 771,6 
IF K 3 THEN POKE 771,4 
HOME PRINT M$ 
K = INT (36 * RND (1)) +1 
RESTORE 
FOR N = 1] TO K: READ DS: NEXT N 
C$ = LEFTS (D$,1) 
HTAB 1: VTAB 4 
CALL ~ 958: PRINT "LISTEN ..." 
FOR T = @ TO 50@: NEXT T 
GOSUB 530 
HTAB 1: VTAB 4 
PRINT "WANT TO HEAR IT AGAIN (Y/N) ?"; 
CALL - 958 


GET K$ 

IF K$ = "Y" THEN 248 

IF K$ = "N" THEN 358 

GOTO 316 

PRINT : PRINT "WHAT WAS THE CHARACTER?"; 
GET K$ 


PRINT K$: PRINT 

IF K$ < > C$ THEN 426 

PRINT "THAT IS CORRECT: "D$ 
GOSUB 536 

GOTO 439 

PRINT "THAT IS NOT CORRECT." 
HTAB 1: VTAB 18 

PRINT "SELECT ONE:": PRINT 


450 
460 
470 
480 
490 
588 
518 
528 
530 
5498 
558 
568 
570 
588 
598 
680 
618 
620 
630 
646 
658 
660 
670 
680 
690 
706 
7108 
7208 
730 
748 
750 


PRINT TAB( 5)"1 ~ LISTEN TO THE SAME CHARACTER. 
PRINT TAB( 5)"2 - LISTEN TO A NEW CHARACTER. 
PRINT TAB( 5)"3 - END THE PROGRAM. 


GET KS$ 

IF K$ = "1" THEN 246 

IF K$ = "2" THEN 198 

IF K$ = "3" THEN HOME : END 
GOTO 489 

POKE 7,18 


FOR X = 2 TO LEN (D$) 
CH$ = MID$ (D$,X,1) 

IF CH$ = "." THEN POKE 6,508: CALL 768: GOTO 586 
POKE 6,150: CALL 768 

NEXT X 

RETURN 

DATA A.~,Breee Creme pDm ee Eo yp Faenme 

DATA G--.,Hewee ples pJemm—y Koop Lene 

DATA M--,N-.,0---,P.--.,Q--.-,R.-. 

DATA S..0,T—,Us orp Veo o—pWem— Xm 0 


DATA Yrurm yp Zone ep lemme Qe emmy deem p bene et 
DATA Seccee Greece Imm oe (8mm oo pI BO 
DATA 


# 
DATA 164,6,162,8,165,7,32,168,252,173 
DATA 48,192,202,288,245,136 
DATA 2808,249,96 
READ D$ 
IF D$ < > “#" THEN 780 
FOR A = 8 TO 18 
READ D: POKE 768 + A,D 
NEXT A 
RETURN 
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Program 30 MORSE CODE GENERATOR 


“Our world would be a different place if all truck drivers had to pass the code test.” 


19 

20 

3a 

48 

58 

60 

70 

80 

98 

1008 
110 
120 
136 
146 
1508 
168 
1768 
186 
1908 
208 
218 
228 
238 
248 
258 
2698 
278 
280 
298 
3008 
318 
328 
338 
346 
358 
360 
370 
380 
396 
400 
416 
420 
430 
440 
458 
460 
470 
480 
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— Anonymous amateur radio operator 


REM ** MORSE CODE GENERATOR ** 

REM 

GOSUB 610 

FOR N = 1 TO 10:M$ = M$ + CHRS$ (32): NEXT N 


MS = MS + "MORSE CODE GENERATOR" + CHRS (13) 


FOR N = 1 TO 40:M$ = MS + "*": NEXT N 
TEXT : HOME : PRINT M$ 

PRINT "SELECT A TRANSMISSION RATE:"* 
PRINT 

PRINT TAB( 5)"l - SLOW 

PRINT TAB( 5)"2 -— MEDIUM 

PRINT TAB( 5)"3 ~- FAST 

PRINT : GET K$ 

IF K$ < "1" OR KS$ > "3" THEN 139 
K = VAL (K$) 


IF K = 1 THEN’ POKE 771,8 
IF K = 2 THEN’ POKE 771,6 
IF K = 3 THEN’ POKE 771,4 
HOME : PRINT MS 


PRINT “ENTER A SENTENCE THAT IS TO BE ENCODED" 
PRINT "(UP TO 20@ CHARACTERS). ENCLOSE IN® 
PRINT "QUOTES IF YOU USE A COMMA OR APOSTROPHE." 
INPUT "";PES 

L = LEN (PES) 

IF L < 1 THEN 232 

IF L < 201 THEN 290 

PRINT : PRINT “MESSAGE IS TOO LONG. TRY AGAIN.” 
GOTO 238 

FOR N = 1 TO LEN (PES) 
K$ = MID$ (PES,N,1) 

PRINT KS; 

IF K$ < > CHR$ (32) THEN 346 

FOR T = @ TO 1066: NEXT T: GOTO 3598 

GOSUB 430 

NEXT N 

HTAB 1: VTAB 21 

PRINT "STRIKE THE SPACE BAR TO ENCODE ANOTHER" 
PRINT “MESSAGE (OR THE X KEY TO END)."; 


GET K$ 

IF K$ = CHR$ (32) THEN 70 
IF K$ = "X" THEN END 
GOTO 396 

RESTORE 


READ D$: IF D$ = "#* THEN RETURN 
IF K$ < > LEFTS (D$,1) THEN 440 
POKE 7,18 
FOR X = 2 TO LEN (D$) 
CH$ = MIDS (D$,X,1) 


490 
508 
518 
528 
530 
5408 
5508 
568 
570 
5808 
5908 
600 
610 
620 
630 
640 
658 
660 
670 
688 
690 


IF CH$ = "." THEN POKE 6,508: CALL 768: GOTO 510 
POKE 6,158: CALL 768 

NEXT X 

RETURN 

DATA A.w~,Brene pCme 1 pD~ 0 eo Ewe Fu wme 

DATA G~--.,Hoewe glow pJemmme K~ ep lenmee 

DATA M-~-,N-. ,O0~---,P.~--. ,Q--.-,R.-. 

DATA S.ce,T-,Uc oe —,Ve ee pWor— Xe o- 

DATA  Yruwm yp Zeneca Ze emmy sec etme be eee 
DATA SEE lel Te keate OT E : tte EE octet aD putes ariomine 
DATA . Pod edt Real Rell Rete Pathe i 2) onmwe or/7e omer ~e ee 
DATA # 

DATA 164,6,162,8,165,7,32,168,252,173 

DATA 48,192,202,208,245,136 

DATA 208,240,96 

READ D$ 

IF DS < > "#€" THEN 646 

FOR A = 6 TO 18 

READ D: POKE 768 + A,D 

NEXT A 

RETURN 
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Program 31 WORD-FIND PUZZLE GENERATOR 


“Failure is sometimes its own reward; such as seeking a needle in a haystack and finding 
the farmer’s daughter.” 
—Ancient Midwestern Proverb 


Word-find puzzles are quite popular these days. Such puzzles show a rectangular array of 
seemingly random letters of the alphabet. Hidden within that array, however, are some 
meaningful words. Some are arranged horizontally, and others vertically. 

This program gives you the opportunity to specify eight words of up to eight 
characters apiece. It then arranges them in the “word-find” array for you. 


19 REM ** WORD-FIND PUZZLE GENERATOR ** 

28 REM 

30 DIM N$(8),M$(8,8),T$(16,16) ,Y$(16,16) 

4@ M$ = "WORD-FIND PUZZLE GENERATOR" + CHR$ (13) 
5@ FOR K = 1 TO 46:M$ = M$ + "*": NEXT K 

6@ TEXT : HOME : PRINT MS 

70 FOR C = 1T0 8: FOR X = 1 TO 8 

88 MS(C,X) = CHRS (32) 

99 NEXT X: NEXT C 

199 PRINT "ENTER 8 WORDS OF 8 CHARACTERS OR LESS:" 
110 VTAB 8 

126 FOR N = 1 TO 8 

130 IF PEEK (37) < = 21 THEN 158 

146 HTAB 1: VTAB 8 

15@ PRINT "WORD #"N": "; 

168 CALL - 868 

178 INPUT "";WS 

188 L = LEN (WS) 

199 IF L< 1 THEN 139 

200 IF L< = 8 THEN 230 

210 PRINT “TOO LONG. TRY AGAIN ..." 

226 GOTO 130 

230 IF RIGHTS (WS,l1) < > CHRS$ (32) THEN 259 
249 L = L - 1:WS = LEFTS (WS$,L): GOTO 239 

250 NS$(N) = ws 

268 NEXT N 

270 FOR N = 1 TO 8: FOR X = 1 TO LEN (N$(N)) 
280 MS(X,N) = MIDS (N$(N),X,1) 

298 NEXT X,N 

308 HOME : PRINT M$: PRINT 


318 PRINT : PRINT "GENERATING WORD FIND" 
3260 FOR R = 1 TO 16: FOR C = 1 TO 16 
338 TS$(R,C) = CHRS$ (32) 

340 NEXT C: NEXT R 

350 W = @ 

368 W w+il 

378 D INT ( RND (1) * 2 + 1) 


uous nf 


380 IF D = 2 THEN 519 
398C INT ( RND (1) * 16 + 1) 
408 R INT ( RND (1) * 8 + 9) 
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416 
428 
430 
440 
450 
468 
478 
480 
4908 
586 
518 
5208 
5368 
546 
558 
568 
578 
588 
598 
608 
618 
620 
638 
646 
658 
668 
678 
6808 
698 
706 
716 
728 
738 
748 
7568 
768 
776 
788 
798 
888 
810 
828 
830 
846 
850 
868 
876 
880 
890 
9808 
918 
928 
938 
9406 
958 
968 


FOR CK = R- 8 TOR - 1 


IF T$(CK,C) < > CHRS$ (32) THEN 378 
NEXT CK 
L= 6 
FOR CK = R- 8 TOR - 1 
L=L+i 
TS(CK,C) = M$(L,W) 
NEXT CK 
IF W < 8 THEN 368 
GOTO 620 
R = INT ( RND (1) * 16 + 1) 


C = INT ( RND (1) * 8 + 9) 
FOR CK =C -8TO0C-1 


IF T$(R,CK) < > CHRS$ (32) THEN 370 
NEXT CK 

L=@ 

FOR CK =C - 8 TOC-1 

L=Lt+1 
T$(R,CK) = M$(L,W) 

NEXT CK 


IF W < 8 THEN 368 

HOME : PRINT MS: PRINT 
GOSUB 988 

VTAB 5 

FOR R = 1 TO 16 

PRINT 

HTAB 29 

FOR C = 1 TO 16 

Y$(R,C) = TS(R,C) 

BS = CHRS$ ( INT ( RND (1) * 26) + 65) 
IF T$(R,C) = CHRS$ (32) THEN TS(R,C) = BS 
PRINT TS$(R,C); 

NEXT C: NEXT R 


HTAB 1: VTAB 23 

PRINT "STRIKE ANY KEY TO SEE THE SOLUTION ..."; 
GET K$ 

HOME : PRINT MS: PRINT 

GOSUB 988 

VTAB 5 


FOR R = 1 TO 16 

PRINT : HTAB 20 

FOR C = 1 TO 16 

PRINT Y$(R,C); 

NEXT C: NEXT R 

HTAB 1: VTAB 22 

PRINT “STRIKE ANY KEY TO CONTINUE ..."; 
GET KS 

HOME : PRINT M$ 

PRINT “SELECT ONE:": PRINT 

PRINT TAB( 5)"1 - DO A NEW PUZZLE 
PRINT TAB( 5)"2 - END THE PROGRAM 
PRINT : PRINT 

GET KS 

IF K$ < "1" OR KS > "2" THEN 939 
K = VAL (KS) 

IF K = 1 THEN 60 
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976 HOME : END 

988 PRINT "WORD LIST* 

996 FOR N = 1 TO 9: PRINT "~";: NEXT N 
‘1800 PRINT : PRINT 

1616 FOR N= 1 T0 8 

1920 PRINT N$(N) 

1030 NEXT N 

1049 RETURN 
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Program 32 HI/LO GUESSING GAME 


“He who plays a game well plays to delight his spirit; but he who wagers a game wagers 


his own soul.” 
—Some old-time nurd 


No book of BASIC programs can be complete without a version of the ol’ high/low 
guessing game. This one features multiple players, some wagering, and a generous 
bankroll to get things started in an interesting fashion. Even if you are weary of plain old 
high/low guessing games, you will find this version adds a bit of spice. 


16 REM ** BETTING HI/LO GAME ** 


28 REM 
38 FOR N = 1 TO 17:X$ = X$ + CHRS (32): NEXT N 
40 FOR N = 1 TO 40:Y$ = Y$ + "$":LS = L$ + "=": NEXT N 


50 MS = X$ + "HI/LO" + CHRS (13) + Y$ 

6@ TEXT : HOME : PRINT M$ 

70 PRINT "THIS IS A HI/LO GUESSING GAME FOR 1 TO" 

88 PRINT "5 PLAYERS. THE COMPUTER PICKS A NUM~" 

98 PRINT “BER BETWEEN 1 AND 100. IT IS THEN UP* 

190 PRINT "TO THE PLAYER(S) TO GUESS WHAT IT IS.” 
116 PRINT : PRINT "A LITTLE SIDE BETTING ADDS SOME SPICE" 
126 PRINT "TO THE WHOLE THING." 

130 VTAB 21: PRINT "STRIKE ANY KEY TO CONTINUE ..."; 
148 GET KS 

150 HOME : PRINT M$ 

16@ PRINT “HOW MANY PEOPLE ARE PLAYING "; 

170 INPUT "(1-5)?";NP% 


186 NP = NP%: IF NP > @ AND NP < = 5 THEN 280 
198 GOTO 178 

288 PRINT : PRINT 

218 FOR N = 1 TO NP 


220 HOME : PRINT M$ 

230 PRINT "PLAYER $"N", ENTER YOUR NAME:" 

248 HTAB 5: INPUT x$ 

250 IF LEN (X$) > @ AND LEN (X$) < 20 THEN 276 
266 PRINT “USE A REAL NAME, PLEASE.": GOTO 249 
270 PS(N) = X$: NEXT N 

286 FOR N = 1 TO NP:M(N) = 100: NEXT N 

290 HOME : PRINT MS 

300 PRINT "PLACE YOUR BET:": PRINT 

310 P = B 

320 PRINT "PLAYER";: HTAB 21: PRINT “FUNDS";: HTAB 28: PRINT “BET* 
330 PRINT L$: PRINT 

340 FOR N = 1 TO NP 

350 PRINT P$(N);: HTAB 21: PRINT "“S*"M(N); 

360 IF M(N) = @ THEN B(N) = @: PRINT : GOTO 420 
370 HTAB 28: PRINT "S$"; 

380 INPUT "";B(N) 

398 IF B(N) > @ AND B(N) < = M(N) THEN 419 

496 HTAB 18: PRINT "TRY AGAIN:";: GOTO 379 

419 P = P + B(N) 


420 
430 
440 
450 
460 
478 
480 
498 
500 
510 
520 
530 
540 
558 
560 
578 
588 
598 
600 
618 
620 
6308 
648 
650 
668 
678 
688 
698 
780 
718 
728 
730 
748 
756 
7608 
778 
7808 
798 
880 
810 
828 
830 
8490 
8598 
860 
878 
880 
890 
980 
9108 
928 
930 
948 
958 
968 
978 
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NEXT N 

PRINT : PRINT “THE TOTAL POT IS $"P 

HTAB 1: VTAB 21: PRINT “STRIKE ANY KEY TO CONTINUE ..."; 
GET K$ 


RG = INT (108 * RND (1)) +1 
HOME : PRINT MS 
PRINT "GUESS A NUMBER BETWEEN 1 AND 186:": PRINT 


PRINT "PLAYER";: HTAB 21: PRINT "GUESS" 
LG = @:HG = @ 

PRINT L$ 

FOR N = 1 TO NP 

IF M(N) = @ THEN G(N) = @: GOTO 586 
PRINT P$(N);: HTAB 21 

INPUT G%:G = G% 


IF G > @ AND G < = 10@ THEN G(N) = G: GOTO 580 
HTAB 11: PRINT "TRY AGAIN:": GOTO 559 

NEXT N 

FOR N = 1 TO NP 

IF M(N) = @ THEN 646 

IF G(N) < RG THEN LG = LG + 1 

IF G(N) > RG THEN HG = HG + 1 

IF G(N) = RG THEN 788 

NEXT N 

PRINT 


IF LG = 1 THEN PRINT "1] PLAYER “;: GOTO 689 

PRINT LG" PLAYERS "; 

PRINT "GUESSED TOO LOW." 

IF HG = 1 THEN PRINT "1 PLAYER ";: GOTO 718 

PRINT HG" PLAYERS "; 

PRINT "GUESSED TOO HIGH." 

VTAB 21: PRINT "STRIKE THE SPACE BAR TO GUESS AGAIN* 
HTAB 3: PRINT "(OR THE X KEY TO END THE GAME)"; 

GET K$ 


IF K$ = CHRS$ (32) THEN 476 

IF KS = "X" THEN 968 

GOTO 74¢@ 

HOME : PRINT MS 

FOR K = 1 TO 4: CALL ~- 198: NEXT K 


INVERSE : PRINT P$(N);: NORMAL 

PRINT “ GUESSED CORRECTLY." 

PRINT : PRINT "THE NUMBER IS ";RG 

NB = @ 

FOR K = 1 TO NP 

IF K = N THEN M(K) = M(K) + P — B(K): GOTO 888 
M(K) = M(K) ~ B(K) 

IF M(K) < = @ THEN NB = NB + 1 

NEXT K 

IF NB = NP - 1 THEN 968 

VTAB 21: PRINT “STRIKE THE SPACE BAR FOR THE NEXT ROUND" 

HTAB 3: PRINT "(OR THE X KEY TO END THE GAME)"; 
GET K$ 

IF K$ = CHRS$ (32) THEN 298 

IF K$ = "X" THEN 968 

GOTO 920 

HOME : PRINT M$ 

PRINT "GAME SUMMARY:": PRINT L$ 


980 FOR N = 1 TO NP 


998 PRINT PS$(N);: 
1900 NEXT N 
1019 VTAB 21: END 


HTAB 21: 


PRINT M(N) 


59 


Program 33 FAIR HI/LO 


“What's fair is fair.” 
—Katharine Hepburn in The African Queen 


Wagering on the Hi/Lo Guessing Game (Program 32) can be risky business, and it can be 
downright silly business if you are losing. After all, it’s your computer, and no one but 
you has a right to make a couple of bucks with it. 

This version of the ol’ HI/LO game gives you a chance to recoup some of your 
losses. It runs just like the legitimate version, but you can set it up to load the results 
very heavily in your favor. Here’s how it works. 

When the program asks you to enter your name, make sure that you sneak a space at 
the end of your entry. If your first name is Billy, for instance, type your name as BILLY 
and discretely strike the space bar before striking the return key. From that moment on, 
the computer knows when it is dealing with you. 

Then, when it is your turn to guess the number, enter any number you choose. The 
“secret” number becomes your guess plus 10. So if you guess 50 the first time, the correct 
answer will be 60—and you can enter that number (and win the round) anytime thereaf- 
ter. Incidentally, if your first guess is greater than 90, the correct number becomes 90. 

Omit the space after your name, and the game runs ina perfectly legitimate fashion. 


16 REM ** FAIR BETTING HI/LO GAME ** 


20 REM 
3@ FOR N = 1 TO 17:X$ = X$ + CHRS (32): NEXT N 
46 FOR N = 1 TO 46:Y$ = Y$ + "$"3L$ = L$ + "=": NEXT N 


50 MS = X$ + "HI/LO" + CHRS (13) + Y$ 

60 TEXT : HOME : PRINT M$ 

76 PRINT "THIS IS A HI/LO GUESSING GAME FOR 1 TO" 
86 PRINT "5 PLAYERS. THE COMPUTER PICKS A NUM-" 
96 PRINT "BER BETWEEN 1 AND 160. IT IS THEN UP" 
166 PRINT "TO THE PLAYER(S) TO GUESS WHAT IT IS." 
116 PRINT : PRINT “A LITTLE SIDE BETTING ADDS SOME SPICE" 
128 PRINT "TO THE WHOLE THING." 

138 VTAB 21: PRINT “STRIKE ANY KEY TO CONTINUE ..."; 
148 GET KS 

158 HOME : PRINT MS 

166 PRINT "HOW MANY PEOPLE ARE PLAYING "; 

176 INPUT "(1-5)2";NP% 

180 NP = NP%: IF NP > @ AND NP < = 5 THEN 200 

196 GOTO 170 

266 PRINT : PRINT 

219 FOR N = 1 TO NP 

226 HOME : PRINT M$ 

230 PRINT "PLAYER #"N", ENTER YOUR NAME:" 

246 HTAB 5: INPUT XS 

250 fF LEN (X$) > @ AND LEN (X$) < 28 THEN 270 
260 PRINT "USE A REAL NAME, PLEASE.": GOTO 246 
276 PS(N) = X$: NEXT N 
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289 FOR N = 1 TO NP:M(N) = 100: NEXT N 
298 HOME : PRINT M$ 


308 CF = @ 
316 PRINT "PLACE YOUR BET:": PRINT 
320 P = @ 


330 PRINT "PLAYER";: HTAB 21: PRINT “FUNDS";: HTAB 28: PRINT “BET" 
346 PRINT L$: PRINT 

358 FOR N = 1 TO NP 

360 PRINT PS$(N);: HTAB 21: PRINT "S$"M(N); 

370 IF M(N) = @ THEN B(N) = @: PRINT : GOTO 439 

386 HTAB 28: PRINT "$"; 

390 INPUT "";B(N) 

408 IF B(N) > @ AND B(N) < = M(N) THEN 420 

416 HTAB 18: PRINT "TRY AGAIN:";: GOTO 388 

420 P = P + B(N) 

430 NEXT N 

449 PRINT : PRINT "THE TOTAL POT IS $"P 

458 HTAB 1: VTAB 21: PRINT "STRIKE ANY KEY TO CONTINUE ..."; 
46@ GET KS 

470 RG = INT (1098 * RND (1)) +1 

4890 HOME : PRINT M$ 

490 PRINT "GUESS A NUMBER BETWEEN 1] AND 160:": PRINT 
508 PRINT "PLAYER";: HTAB 21: PRINT "GUESS" 

510 LG = @:HG = @ 

526 PRINT L$ 

530 FOR N = 1 TO NP 

546 IF M(N) = @ THEN G(N) = 6: GOTO 628 

550 PRINT PS$(N);: HTAB 21 

566 INPUT G%:G = G% 


570 IF G > @ AND G < = 100 THEN G(N) = G: GOTO 596 
580 HTAB 11: PRINT "TRY AGAIN:": GOTO 560 
599 IF NOT (CF = @ AND RIGHTS (PS(N),1) = CHRS$ (32)) THEN 620 


600 IF G(N) + 1@ > 108 THEN RG = 90:CF = 1: GOTO 620 
619 RG = G(N) + 10:CF = 1 
626 NEXT N 


630 FOR N = 1 TO NP 

640 IF M(N) = @ THEN 688 

650 IF G(N) < RG THEN LG = LG + 1 
66@ IF G(N) > RG THEN HG = HG + 1 


678 IF G(N) 
68@ NEXT N 
698 PRINT 
708 IF LG = 1 THEN PRINT "1 PLAYER ";: GOTO 720 

718 PRINT LG" PLAYERS "; 

720 PRINT "GUESSED TOO LOW." 

730 IF HG = 1 THEN PRINT "1 PLAYER ";: GOTO 759 

74@ PRINT HG" PLAYERS "; 

75@ PRINT "GUESSED TOO HIGH." 

76@ VTAB 21: PRINT "STRIKE THE SPACE BAR TO GUESS \GAIN" 
770 HTAB 3: PRINT "(OR THE X KEY TO END THE GAME)". 

786 GET KS 
798 IF KS 
860 IF K$ 
818 GOTO 788 

828 HOME : PRINT MS 

838 FOR K = 1 TO 4: CALL - 198: NEXT K 


RG THEN 8290 


CHR$ (32) THEN 488 
"X" THEN 1086 
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840 
858 
860 
878 
889 
896 
908 
916 
9208 
938 
948 
958 
968 
978 
988 
998 
1880 
1618 
1820 
1838 
1848 
1650 
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INVERSE : PRINT PS$(N);: NORMAL 
PRINT " GUESSED CORRECTLY." 
PRINT : PRINT "THE NUMBER IS ";RG 
NB = 0 
FOR K = 1 TO NP 
IF K = N THEN M(K) = M(K) + P - B(K): GOTO 929 
M(K) = M(K) ~— B(K) 
IF M(K) < = @ THEN NB = NB + 1 
NEXT K 
IF NB = NP — 1 THEN 1600 
VTAB 21: PRINT "STRIKE THE SPACE BAR FOR THE NEXT ROUND" 
HTAB 3: PRINT "(OR THE X KEY TO END THE GAME)"; 
GET K$ 
IF K$ = CHR$ (32) THEN 299 
IF K$ = "X" THEN 10600 
GOTO 968 
HOME : PRINT MS 
PRINT "GAME SUMMARY:": PRINT LS 
FOR N = 1 TO NP 
PRINT P$(N);: HTAB 21: PRINT M(N) 
NEXT N 
VTAB 21: END 


Program 34 COMBINATION LOCK 


“If it is true that the last bolt is always the one that sticks, it is equally true tnat the last 
key is the one that opens the lock.” 
—Overheard in a hardware store in Hong Kong 


If you are no good at this game, you will most likely give up with no harm done. If you are 
fairly good, it will drive you nuts. If you are exceedingly good, you will never win. In any 
event, it’s worth a try. 


16 REM  ** COMBINATION LOCK GAME ** 
28 REM 

30 TEXT :L = 2 

40 M$ = "COMBINATION LOCK CHALLENGE" 

5@ HOME : PRINT TAB( 7)M$: PRINT : GOSUB 428 

60 VTAB (10): PRINT "STRIKE ANY KEY TO BEGIN ..."; 

76 GET KS 

86 HOME : PRINT M$: PRINT “FOR LOCKSMITH LEVEL "L: PRINT : GOSUB 429 
99 S = 6 

166 PRINT “ENTER COMBINATIONS OF "L" DIGITS 

1160 PRINT TAB( 5)"(OR X TO ABORT THE ATTEMPT)": PRINT 

120 FOR N= 1 TO L:A(N) = INT (16 * RND (1)): NEXT N 

130 PRINT "2"; 

146 FORN=1 TOL 

156 GET K$ 

160 IF NOT (K$ = "X") THEN 199 

170 IF L > 1 THEN L = L — 1:AF = 2: GOTO 359 

180 AF = @: GOTO 346 

199 IF ASC (K$) < 48 OR ASC (KS) > 57 THEN 159 

260 PRINT VAL (K$);:G(N) = VAL (KS) 

216 FOR X = 1 TOL: IF VAL (K$) = A(X) THEN CALL - 198 

226 NEXT X,N 

230 PRINT :S = S + 
240 FOR N=1 TOL 
250 IF A (N) <> G (N) THEN 138 
260 NEXT N 


1 


278 PRINT : PRINT "THAT IS THE CCMBINATION!!" 

286 FOR N = 1 T0 5: CALL - 198. FOR T = 1 TO 200: NEXT T,N 

298 PRINT "YOU GOT IT IN "S" ATTEMPT";: IF S < > 1 THEN PRINT "S"; 
308 PRINT : PRINT : PRINT 

310 IFS < =L%* 2 THEN L = L + 1:AF = 1: GOTO 330 

320 AF = @ 

330 IF AF = 1 THEN PRINT "YOU HAVE ADVANCED TO"; 

340 IF AF = @ THEN PRINT "YOU RETAIN"; 

358 IF AF = 2 THEN PRINT : PRINT "YOU HAVE BEEN DEMOTED TO"; 

368 PRINT " LOCKSMITH LEVEL "L 


378 PRINT "DO YOU WANT TO CONTINUE (Y/N) ?" 
388 GET K$ 

396 IF K$ = "Y" THEN 8@ 

408 IF K$ = "N* THEN HOME : END 

418 GOTO 388 

420 FOR N = 1 TO 40: PRINT "=";; NEXT N 
430 PRINT : RETURN 


Program 35 9-CELL MAGIC SQUARE GENERATOR 


“The advancement and perfection of mathematics are intimately connected with the 
prosperity of the State.” 
—Napoleon | 


A 9-cell magic square is a3 x 3 arrangement of numbers that add up to the same value, 
when regarded horizontally, vertically and diagonally as shown below. 
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16 
20 
38 
46 
58 
60 
70 
86 
90 
168 
1198 
120 
1398 
146 
158 
1698 
178 
188 
198 
208 
210 
220 
238 
246 
258 
2698 
278 


REM 9-CELL MAGIC SQUARE 


REM 
FOR N = @ TO 39:X$ = X$ + " ": NEXT N 
FOR N = @ TO 9:Y$ = Y$ + CHRS$ (32): NEXT N 


MS = Y$ + "9-CELL MAGIC SQUARE" + CHRS$ (13) + X$ 


FOR ROW = 1 TO 3: FOR COL = 1 TO 3 
READ L(ROW,COL) 
NEXT COL: NEXT ROW 

= INT (99 * RND (1)) + 15: IF (S / 3) < > INT (S / 3) THEN 99 
TEXT : HOME : PRINT M$ 
N= (S - 15) / 3 

PRINT "THE MAGIC SUM FOR THIS SQUARE IS "S".* 
INVERSE 

FOR ROW = 1 TO 3: FOR COL = 1 TO 3 

VTAB ROW * 3 + 7 

HTAB 4 * COL + 10 

PRINT L(ROW,COL) + N 

NEXT COL: PRINT : PRINT : NEXT ROW 

NORMAL 

VTAB 20: PRINT “STRIKE THE SPACE BAR TO SEE ANOTHER" 
PRINT "MAGIC SQUARE (OR STRIKE THE X KEY TO" 
PRINT “END THIS PROGRAM) ..."; 

GET K$:X = RND (1) 

IF K$ = "X* THEN HOME : END 

IF ASC (K$) = 32 THEN 90 

GOTO 236 

DATA 8,1,6,3,5,744,9,2 
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Program 36 16-CELL MAGIC SQUARE 


“Mathematics is the queen of sciences and number theory the queen of mathematics.” 
—Karl F. Gauss 


A 16-cell magic square is not only larger than its 9-cell counterpart (Program 35), but its 
sums can be derived in a greater number of ways as shown below. 


i 
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16 
28 
398 
48 
58 
68 
70 
88 


180 
118 
1298 
138 
148 
158 
168 
178 
188 
198 
280 
216 
220 
238 
248 
250 
260 
2768 
288 
298 
3898 
316 
326 
338 
348 


REM ** 16-CELL MAGIC SQUARES ** 

REM 

FOR N = @ TO 9:X$ = X$ + CHRS$ (32): NEXT N 
FOR N = @ TO 39:Y$ = Y$ + "_": NEXT N 


M$ = X$ + "16-CELL MAGIC SQUARES" + CHRS$ (13) + Y$ 


FOR ROW = 1 TO 4: FOR COL = 1 TO 4 
READ L(1,ROW,COL) 
NEXT COL: NEXT ROW 
TEXT : HOME : PRINT MS 
PrINT "ENTER A MAGIC SQUARE SUM OF YOUR CHOICE" 
PRINT "(ANY WHOLE NUMBER BETWEEN 34 AND 1000):" 
PRINT : INPUT S 
IF S > = 34 AND S < = 1800 THEN 160 
PRINT : PRINT "YOUR SELECTION IS OUT OF RANGE." 
PRINT “PLEASE TRY AGAIN ...": GOTO 128 
HOME : PRINT M$: PRINT 
PRINT "YOU SELECTED A SUM OF "S" FOR YOUR" 
PRINT “MAGIC SQUARE. THE SQUARE LOOKS LIKE* 
PRINT "THIS:* 
PRINT : PRINT : PRINT 
NR = (S - 30) / 4:N = INT (NR):R = (NR ~ N) * 4 
FOR ROW = 1 TO 4: FOR COL = 1 TO 4 
IF L(1,ROW,COL) > = 13 THEN 259 
PRINT TAB( 4 * COL + 7);L(1,ROW,COL) + N — 1;: GOTO 2698 
PRINT TAB( 4 * COL + 7);L(1,ROW,COL) +N +R - 1; 
NEXT COL: PRINT : PRINT ;: NEXT ROW 
PRINT : PRINT 
PRINT “STRIKE THE SPACE BAR FOR ANOTHER SQUARE" 
PRINT "OR STRIKE THE X KEY TO END THE PROGRAM."; 
GET KS 
IF ASC (K$) = 32 THEN 98 
IF K$ = "X® THEN HOME : END 
GOTO 300 
DATA 8,11,14,1,13,2,7,12,3,16,9,6,180,5,4,15 
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Program 37 NUMBER-SEQUENCE TEST 


“Geez, I hate these kinds of problems!” 


350 
360 
378 
380 
398 
400 


420 
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—Overheard during an S.A.T. examination 


REM ** NUMBER~SEQUENCE TEST ** 
REM 
FOR K = 1 TO 10:M$ = CHR$ (32): NEXT K 


MS = MS + "NUMBER-SEQUENCE TEST" + CHRS$ (13) 


FOR K = 1 TO 4@:M$ = MS + “*":; NEXT K 
TEXT : HOME : PRINT M$ 
PRINT "THE COMPUTER IS ABOUT TO DISPLAY A LIST" 
PRINT “OF NUMBERS. YOUR TASK IS TO DETERMINE" 
PRINT “THE NEXT NUMBER IN THE SEQUENCE," 

VTAB 21: PRINT "STRIKE ANY KEY TO SEE THE LIST ..."; 
GET AS 

HOME : PRINT MS 

PRINT "HERE IS A SEQUENCE OF NUMBERS:": PRINT 

= INT (5 * RND (1)) +1 
INT (16 * RND (1)) - 
= INT (18 * RND (1)) + 
FOR K = 1 TO 4 
S(K) = 8 

PRINT S","; 

IF K = 4 THEN PRINT "..." 
S=S*-M+A 

NEXT K 

VTAB 16: PRINT "WHAT IS THE NEXT NUMBER? "; 
INPUT "";N 

HOME : PRINT M$ 

PRINT "YOU SELECTED:" 

PRINT : PRINT TAB( 5)N 

PRINT 

PRINT "THE CORRECT SEQUENCE IS:" 


NPrs 
wi 


5 
1 


PRINT : PRINT TAB( 5); 

FOR K = 1 TO 4: PRINT S(K)","; 
NEXT K 

FLASH : PRINT S: NORMAL 

PRINT : PRINT 


IF N = S THEN PRINT "YOU ARE CORRECT.": GOTO 379 
PRINT “SORRY ABOUT THAT." 

VTAB 21: PRINT "STRIKE THE SPACE BAR TO TRY AGAIN" 
PRINT "(OR THE X KEY TO END THE PROGRAM) ..."; 

GET K$ 


IF K$ = CHR$ (32) THEN 120 
IF K$ = "X" THEN HOME : END 
GOTO 399 


Program 38 IMPROVED CASH FLOW 


“A penny under the table is worth ten in the bank.” 
—Final entry in the diary of an anonymous income-tax evader 


If you share your checking account with another person, there are times when it can be 
rather troublesome to have that individual spend too much for you. This account- 
balancing program can be exceedingly helpful in that regard. 

Enter the account history as requested by the program. Striking the space bar to 
review the account, however, shows a bunch of phony figures that makes it appear that 
you have far less money than you do. That is the version you should show your checkbook 
partner. But when you want to review the truth of the matter, substitute the RETURN 
key for the space bar. 


18 REM ** CASH-FLOW MINDER ** 
26 REM 

36 FOR N = 1 TO 12:M$ = M$ + CHRS (32): NEXT N 

40 MS = M$ + "CASH~FLOW MINDER" + CHRS$ (13) 

56 FOR N = 1 TO 40:M$ = M$ + "S$": NEXT N 

6@ TEXT : HOME : PRINT M$ 

7@ PRINT "KEEPING RECORDS OF CASH FLOW IS A VITAL" 
88 PRINT "PART OF MODERN BUSINESS. SOME TECH-" 

96 PRINT "NIQUES, HOWEVER, ARE BETTER THAN OTHERS" 
108 PRINT "(AS ILLUSTRATED BY THIS PROGRAM)." 


119 PRINT : PRINT 
128 FLASH : PRINT “NOTICE:": NORMAL 
130 PRINT : PRINT TAB( 5)"THE AUTHORS OF THIS PROGRAM* 


146 PRINT TAB( 5)"WILL NOT ACCOMPANY YOU TO" 
15@ PRINT TAB( 5) "AN IRS AUDIT." 

166 VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
176 GET KS 

186 HOME : PRINT MS 

196 PRINT "ENTER YOUR CURRENT ACCOUNT BALANCE: " 
206 PRINT 

216 PRINT TAB( 5); 

226 INPUT "$";A 

236 X = INT (16 * A) / 160 

246 HOME : PRINT MS 

250 N = 6 

260 PRINT “ENTER UP TO 1@ DEPOSITS TO THAT" 

276 PRINT "ACCOUNT. ENTER @ TO END THE LIST" 
286 PRINT “AT ANY TIME." 

298 GOSUB 848 


300 NB = N 
316 FOR N = 1 TO NB 
320 B(N) = F(N):Y(N) = INT (16 * F(N)) / 108 


338 NEXT N 

346 HOME : PRINT M$ 

358 PRINT “ENTER UP TO 18 DEBITS TO THAT ACCOUNT." 
368 PRINT “ENTER 8 TO END THE LIST AT ANY TIME." 
378 GOSUB 848 
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3890 
398 
400 
4190 
420 
4308 
440 
450 
4608 
470 
480 
490 
508 
510 
520 
538 
548 
550 
568 
578 
580 
598 
608 
618 
628 
638 
649 
658 
668 
678 
688 
699 
700 
718 
720 
730 
740 
758 
768 
770 
788 
798 
800 
816 
820 
830 
840 
858 
860 
878 
880 
898 
980 
918 
920 
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NC = N 
FOR N = 1 TO NC 

C(N) = F(N):Z(N) = INT (100 * F(N)) / 10 
NEXT N 
HOME : PRINT MS 
PRINT 
PRINT "DEPOSIT SUMMARY:": PRINT 

BS = 6 


FOR N = 1 TO NB 
PRINT "S$"; 
IF PH = @ THEN 510 
PRINT B(N) 
BS = BS + B(N): GOTO 538 
PRINT Y(N) 
BS = BS + Y(N) 
NEXT N 
HTAB 20: VTAB 5 
PRINT “DEBIT SUMMARY:": PRINT 
cS = 86 
FOR N = 1 TO NB 
HTAB 20: PRINT "S$"; 
IF PH = @ THEN 620 
PRINT C(N) 
CS = CS + C(N): GOTO 649 
PRINT Z(N) 
CS = CS + Z(N) 
NEXT N 
VTAB 21: PRINT "STRIKE ANY KEY TO SEE TOTALS ..."; 
GET KS 
HOME : PRINT MS 
PRINT “STARTING BALANCE: $"; 
IF PH = @ THEN PRINT X: GOTO 716 
PRINT A 
PRINT "TOTAL DEPOSITS: $"BS 
PRINT "TOTAL DEBITS: $"CS 
PRINT : PRINT “CURRENT BALANCE: $*"; 
IF PH = @ THEN 760 
PRINT A + BS - CS: GOTO 779 
PRINT X + BS - CS 
VTAB 21: PRINT “STRIKE THE SPACE BAR TO SEE AGAIN" 
PRINT “(OR THE X KEY TO END) ..."; 


GET K$ 

IF K$ = CHRS$ (32) THEN PH = 6: GOTO 420 
IF K$ = CHRS$ (13) THEN PH = 1: GOTO 428 
IF K$ = "X" THEN HOME : END 

GOTO 798 
Ne=1 

PRINT 


PRINT TAB( 5); 
INPUT "$";F(N) 
IF F(N) = @ THEN 920 
N=N4#1] 
IF N > 10 THEN 920 
GOTO 868 
N = N — 1: RETURN 


Program 39 COUNT THE STARS 


Count the stars in the cold, dark sky, 
Count the cheese balls in frosty moon’s eye. 
Make a wish and turn ’round twice, 
Get yourself dizzy and fall on the ice. 
—Medieval Hebrew Proverb 


18 REM ** COUNT THE STARS ** 

26 REM 

38 M$ = "COUNT THE STARS" + CHRS (13) 

4@ FOR K = 1 TO 46:M$ = M$ + "~": NEXT K 
56 TEXT : HOME : PRINT M$ 

6@ X = INT (258 * RND (1)) + 189 

78 FOR N = 1 TO X 


88 COL = INT (48 * RND (1)) +1 
96 ROW = INT (18 * RND (1)) + 3 
198 IF SCRN( COL,ROW) = ASC ("*") THEN 88 


116 HTAB COL: VTAB ROW: PRINT *#" 

126 NEXT N 

13@ INVERSE 

148 FOR H =9T098@ STEP - 1 

158 HTAB 1: VTAB 22 

166 PRINT “SECONDS ‘TIL DAWN: "8 

170 FOR T = 1 TO 506: NEXT T 

186 NEXT H 

196 NORMAL : HOME : PRINT MS 

266 PRINT "HOW MANY STARS WERE <N THE SKY"; 

216 INPUT NS 

228 PRINT : PRINT "THERE WERE "X" STARS IN THE SKY." 
238 PRINT 

246 G = ABS (NS — X) 

250 IF G < 160 THEN 299 

268 PRINT "MAYBE YOU OUGHT TO SPEND YOUR EVENINGS" 
276 PRINT "DOING SOMETHING MORE CONSTRUCTIVE." 
286 GOTO 38¢ 

296 IF G < 56 THEN 326 

366 PRINT "THAT'S NOT SO GOOD; 8UT YOU COULD DO" 
318 PRINT "“WORSE.": GOTO 386 

326 IF G < 16 THEN 348 

336 PRINT "NOT A BAD GUESS.": GOTO 389 

349 IF G = @ THEN 379 

358 PRINT "CLOSE ... BUT NO CIGAR." 

368 GOTO 386 

37@ PRINT "HOW IN THE WORLD DID YOU DO THAT??" 
386 HTAB 1: VTAB 21 

398 PRINT “STRIKE THE SPACE BAR TO TRY AGAIN (OR" 
400 PRINT “THE X KEY TO END THE PROGRAM) ..."; 
419 GET K$ 

420 IF K$ = CHRS$ (32) THEN 50 

430 IF K$ = "X" THEN HOME : END 

448 GOTO 416 
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Program 40 SIMPLE DICE ROLL 


“Maybe the best way to throw dice is into the river.” 


18 
20 
3@ 
40 
58 
68 
70 
80 
98 
188 
110 
120 
130 
148 
150 
168 
170 
188 
198 
208 
218 
228 
230 
240 
258 
260 
278 
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—Overheard one morning on a river boat near Memphis 


REM ** SIMPLE DICE ROLL ** 


REM 
FOR N = @ TO 14:X$ = X$ + CHRS (32): NEXT N 
FOR N = @ TO 39:Y$ = YS + "*": NEXT N 


MS = X$ + "DICE GAME" + CHRS (13) + Y$ 


TEXT : HOME : PRINT M$: PRINT 
PRINT “HOW MANY DICE DO YOU WANT TO ROLL?" 
PRINT ;: INPUT "(1 THRU 6) ...";ND 
ND = INT (ND): IF ND > @ AND ND < 7 THEN 128 
PRINT : PRINT “INVALID NUMBER OF DICE." 
PRINT "TRY AGAIN ...": GOTO 8@ 
VTAB 20: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
GET K$:X = RND (1): IF K$ = "=" THEN 130 
HOME : PRINT M$ 
DT = @ 
FOR N = 1 TO ND 
D(N) = INT (6 * RND (1) + 1) 
PRINT : PRINT "DIE "N":; "D(N) 
DT = DT + D(N) 
NEXT N 
IF ND = 1 THEN 238 
PRINT : PRINT : PRINT "TOTAL: "DT 
VTAB 20: PRINT "STRIKE THE SPACE BAR TO ROLL AGAIN" 
PRINT "(OR STRIKE THE X KEY TO END THE PROGRAM)" 
GET K$:X = RND (1): IF K$ = "X" THEN 270 
GOTO 148 
HOME : END 


Program 41 BANKROLL DICE 


“The urge to gamble is so universal and its practice so pleasurable that I assume it must 
be evil.” 
—Heywood Brown 


This program can help you pay for your computer or, alternatively, win you a free ride to 
a dark place in the countryside. 


16 REM ** BANKROLL DICE GAME ** 

20 REM 

38 M$ = "BANKROLL DICE (CREDIT LIMIT OF $2500)" + CHRS (13) 
46 FOR N = 1 TO 40:M$ = MS + "S$": NEXT N 

5@ TEXT : HOME : PRINT M$ ’ 

60 PRINT "HERE IS YOUR GOLDEN OPPORTUNITY TO ROLL" 

70 PRINT “A DIE, BETTING AGAINST THIS COMPUTER." 

86 PRINT "(WHAT DO COMPUTERS KNOW ABOUT DICE," 

98 PRINT "ANYHOW?)" 

196 PRINT : PRINT "YOU NOW HAVE A TOKEN CREDIT OF $1960," 

119 PRINT "BUT YOUR CREDIT IS GOOD UP TO THE HOUSE" 

120 PRINT "LIMIT OF $25,600." 

138 VTAB 21: PRINT “STRIKE ANY KEY TO BEGIN GETTING RICH ..."; 
148 GET K$ 

158 PM = 1996 

168 HOME : PRINT MS 

170 IF PM < @ THEN 199 

186 PRINT "YOU NOW HAVE $"PM: GOTO 209 

199 PRINT “YOU ARE NOW IN THE HOLE BY $*" ABS (PM) 

200 PRINT : PRINT “CALL YOUR NUMBER (1-6) "; 

218 GET K$ 

220 IF K$ < "1" OR K$ > "6" THEN 219 

238 PN = VAL (KS) 

2498 PRINT PN 

250 PRINT : PRINT “PLACE YOUR BET: "; 

266 INPUT "$";PB 

270 PB = INT (PB) 

286 IF PB + PM < = 256008 THEN 399 

299 PRINT "HOUSE LIMIT IS $2500@. TRY AGAIN ..."; GOTO 269 
308 IF PB > @ THEN 329 

318 PRINT "YOU HAVE TO BET SOMETHING! TRY AGAIN “;: GOTO 269 
32@ CN = INT (6 * RND (1)) + 1 

330 IF CN = PN THEN 326 

340 PRINT : PRINT "THE HOUSE CALLS “CN 

350 VTAB 21: PRINT “STRIKE ANY KEY TO ROLL THE DIE ..*; 

36@ GET KS 
378 FOR K 
388 FORT 
398 NEXT T 
490 CK = PEEK ( ~ 16336) 

410 NEXT K 

428 FOR K = 1 TO 3: CALL ( - 198): NEXT K 
430 FG = 6 


1 TO 58 
1 TO INT ( RND (1) * 58 + 18) 


440 
450 
460 
4708 
480 
490 
500 
510 
520 
5308 
548 
550 
560 
570 
580 
598 
600 
610 
620 
630 
640 
650 
660 
678 
680 
698 
788 
710 
728 
730 
7408 
750 
760 
770 
780 
798 
880 
810 
820 
830 
8408 
858 
868 
878 
880 
890 
980 
918 
9298 
938 
940 
950 
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IF INT (8 * RND (1)) = @ THEN FG = 1 
IF FG = 1 THEN 588 


DN = INT (6 * RND (1)) +1 

IF DN = PN THEN 460 

IF ABS (DN - CN) > = ABS (DN ~— PN) THEN 460 
GOTO 519 
DN = INT (6 * RND (1)) +1 


HOME : PRINT M$ 

PRINT "THE DIE SHOWS "DN 

PRINT "YOU PICKED "PN 

PRINT "THE HOUSE PICKED "CN 

IF ABS (DN - CN) < ABS (DN —- PN) THEN 590 
INVERSE : PRINT "YOU WIN": NORMAL 
PM = PM + 2 * PB 

GOTO 620 

INVERSE : PRINT "HOUSE WINS": NORMAL 
PM = PM — PB 

IF PM < =~ 25000 THEN 710 

IF PM > = @ THEN 680 

VTAB 21: PRINT "DO YOU WANT TO PLAY AGAIN (Y/N)? "; 
GET KS$ 

IF KS = "Y" THEN 166 

IF K$ = "N" THEN 770 

GOTO 648 

VTAB 21: PRINT “STRIKE ANY KEY TO PLAY AGAIN ..."; 
GET KS 

GOTO 168 

HOME : PRINT M$ 

PRINT “SORRY, YOUR DEBT IS ON THE ORDER OF" 

PRINT "$25000." 

PRINT : PRINT "WE REGRET THAT WE CANNOT EXTEND FURTHER" 
PRINT "CREDIT AT THIS TIME." 

GOTO 810 

HOME : PRINT M$ 

PRINT "YOU HAVE A CURRENT DEBT IN THE AMOUNT" 
PRINT "SHOWN BELOW:": PRINT 

PRINT : PRINT "S$" ABS (PM) 

VTAB 19: PRINT "STRIKE ANY KEY TO SEE OPTIONS AVAILABLE" 
PRINT "FOR RESOLVING THIS MATTER ..."; 

GET KS 

HOME : PRINT MS 

PRINT "WE CANNOT ACCEPT A CHECK OR I.0.U.": PRINT 
PRINT "WE CAN ACCEPT ONE, OR A COMBINATION," 
PRINT "OF THE FOLLOWING ITEMS:": PRINT 

PRINT TAB( 5)"<A> CASH" 

PRINT TAB( 5)"<B> VISA 

PRINT TAB( 5)"<C> MASTERCHARGE 

PRINT TAB( 5)"<D> AMERICAN EXPRESS 

PRINT : PRINT 

PRINT “NOTE: CASH IS PAID OR CREDIT CARDS ARE" 
PRINT "SIGNED OVER TO THE OWNER OF THIS COM-" 
PRINT "PUTER." 


Program 42 CARDS AT WAR 


“Cards were at first for benefits designed, sent to amuse, not to enslave the mind.” 


18 

20 

36 

49 

58 

68 

76 

88 

98 

168 
118 
128 
130 
148 
158 
168 
1786 
188 
198 
280 
216 
220 
238 
248 
256 
268 
278 
288 
298 
386 
316 
326 
336 
349 
356 
368 
378 
386 
396 
460 
4190 
429 
438 
440 
450 
468 
470 
4808 


— Garrick 


REM ** CARDS AT WAR ** 
REM 

FOR K = 1 TO 14:M$ = M$ + CHR$ (32): NEXT K 
M$ = M$ + "CARDS AT WAR" + CHRS$ (13) 

FOR K = 1 TO 40:M$ = M$ + "*#": NEXT K 

TEXT : HOME : PRINT M$ 

PRINT "DO YOU WANT TO SEE THE INSTRUCTIONS?" 
PRINT "(Y/N)"; 


GET K$ 
IF K$ = "Y¥" THEN 139 
IF K$ = “"N" THEN 339 
GOTO 98 


HOME : PRINT M$: SPEED= 1698 

PRINT "YOU AND YOUR COMPUTER ARE ABOUT TO PLAY" 
PRINT “A VARIATION OF A POPULAR CARD GAME" 

PRINT “CALLED ‘WAR. '" 

PRINT : PRINT *YOU AND THE COMPUTER BOTH BEGIN WITH" 
PRINT "HANDS OF 26 CARDS. YOU BOTH PICK A* 

PRINT "NUMBER BETWEEN 1 AND 5; AND IF THE" 

PRINT "NUMBERS DO NOT MATCH, YOU BOTH PLACE" 

PRINT “ONE CARD INTO THE POT. BUT IF THE" 

PRINT “NUMBERS MATCH, YOU GO TO ‘WAR. '" 

PRINT : PRINT "GOING TO 'WAR' MEANS THAT YOU PICK A® 
PRINT "NUMBER, 1 OR 2. IF YOU SELECT THE RIGHT*" 
PRINT "NUMBER, YOU GET THE CARDS FROM THE POT." 
PRINT “OTHERWISE, THE COMPUTER GETS THEM." 

PRINT 

PRINT “THE FIRST TO GET ALL 52 CARDS WINS" 

PRINT “THE GAME." 

SPEED= 255 

PRINT : PRINT “STRIKE THE SPACE BAR TO BEGIN ..."; 
GET K$ 

HOME : PRINT M$: PRINT 
TP = 26:TC = 26 
COUNT = @ 
CC = INT ( RND (1) * 5 + 1) 

IF COUNT = 1 THEN 4808 

PRINT "THERE ARE NOW *“COUNT® CARDS IN THE STACK." 
GOTO 4198 

PRINT "THERE IS 1 CARD IN THE STACK." 


COUNT = COUNT + 1 

IF COUNT + TP < 52 AND COUNT + TC < 52 THEN 448 
GOTO 519 

PRINT : PRINT "PICK A NUMBER (1-5): "; 

GET KS$ 


IF K$ < “l1" OR K$ > "5" THEN 458 
NB = VAL (K$) 
PRINT NB 
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498 PRINT : PRINT "THE COMPUTER PICKS: "CC 
500 IF NB < > CC THEN 776 

51@ CALL ( ~ 198): CALL ( ~ 198): CALL ( - 198) 

520 PRINT : PRINT 

530 FLASH : PRINT " THIS IS A WAR ": NORMAL 

540 PRINT : PRINT "PICK A NUMBER (1 OR 2) "; 

550 GET K$ 

568 IF K$ < "1" OR K$ > "2" THEN 559 

570 N = VAL (KS) 

588 WC = INT ( RND (1) * 2 + 1) 

599 HOME : PRINT MS 

608 IF WC < > N THEN 676 

618 HOME : PRINT MS 

628 PRINT : PRINT "** YOU WON THE CARDS **" 

630 PRINT 

640 TP = TP + COUNT:TC = TC - COUNT 

65@ PRINT "YOU WON "COUNT" CARDS FOR A TOTAL OF “TP™," 

668 COUNT = @: GOTO 710 

678 PRINT : PRINT "** THE COMPUTER GETS THE CARDS **" 

688 TC = TC + COUNT: TP = TP — COUNT 

698 PRINT "IT WON "COUNT" CARDS FOR A TOTAL OF "TC" CARDS." 
708 COUNT = 6 

718 VTAB 21: PRINT "STRIKE THE SPACE BAR TO CONTINUE" 

720 PRINT "(OR THE X KEY TO QUIT THE GAME) ..."; 

73@ GET K$ 
740 IF K$ 
750 IF KS 
768 GOTO 730 

770 FOR T = 1 TO 1500: NEXT T 

780 HOME : PRINT MS 

798 IF TP > 52 THEN 829 

808 IF TC > 52 THEN 870 

818 GOTO 360 

820 FOR K = 1 TO 5: CALL ( - 198): NEXT K 

830 PRINT "YOU HAVE WON THE GAME" 

849 PRINT : PRINT "WOULD YOU LIKE TO PLAY AGAIN (Y OR N)* 


CHRS$ (32) THEN 78¢ 
"X" THEN HOME : END 


850 GET K$: IF K$ = "Y" THEN 338 
860 END 
878 FOR K 1 TO 5: CALL ( ~ 198): NEXT K 


880 PRINT PRINT “THE COMPUTER WON THE GAME" 


898 GOTO 840 
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Program 43 FLASH CARDS 


“Think fast!” 
—Twentieth-Century American figure of speech 
18 REM ** COMPUTER FLASH CARDS ** 
20 REM 
38 FOR N = 1 TO 10:M$ = CHRS (32): NEXT N 
40 MS = MS + “RED-HOT FLASH CARDS" + CHRS$ (13) 


248 
250 
268 
270 
2808 
296 
380 
310 
320 
330 
340 
358 
3698 
370 
388 
3908 
460 
410 
420 
430 
446 
450 
460 
4708 
486 


FOR N = 1 TO 46:M$ = MS + "=": NEXT N 
TEXT : HOME : PRINT M$ 
SPEED= 190 
PRINT “THE DAWN OF THE COMPUTER AGE SHEDS NEW" 
PRINT “LIGHT ON THE NEED FOR PEOPLE TO THINK* 
PRINT "AND REACT FASTER THAN EVER BEFORE. THIS" 
PRINT *NEED EXTENDS TO SOME OLDER EDUCATIONAL" 
PRINT *TECHNIQUES,." 
PRINT : PRINT "HERE IS AN EXAMPLE -- "; 
FLASH : PRINT "FLASH CARDS";: NORMAL 
HTAB 1: SPEED= 255 
VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
GET KS 
HOME : PRINT MS 
HTAB 1: VTAB 16 
FLASH : PRINT "ANSWER:" SPC( 2): NORMAL 
INVERSE 
FOR N = 1 TO 50 
= INT (4 * RND (1)) +1 
= INT (11 * RND (1)) 
= INT (11 * RND (1)) 
IF F < 4 THEN 290 
IF B = @ AND F = 4 THEN 258 
IF A /B< > INT (A / B) THEN 258 
HTAB 1: VTAB 8 
CALL - 198 
ON F GOSUB 499,518,530,558 
FOR T = @ TO 100: NEXT T 
PRINT "2?" SPC( 2) 
HTAB 28: VTAB 18 
PRINT "CARD NO. "N 
NEXT N 
NORMAL 
HOME : PRINT MS 
PRINT "YOU GOT "U" CORRECT OUT OF "N - 1"," 
PRINT 


Ory 


FOR N = 1 TO 16 

READ D: PRINT CHRS (D); 
NEXT N 

PRINT : PRINT 


FOR N = 1 TO 4 

READ D$: PRINT TAB( 5)D$" GRADE" 
NEXT N 

END 
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490 
500 
518 
520 
530 
5408 
550 
5608 
5708 
5808 
5908 


78 


Cc 


Cc 


Cc 


Cc 


PRINT A" + "B" =" SPC( 2) 
= A + B: RETURN 
PRINT A" — "B" =" SPC( 2) 
= A - B: RETURN 
PRINT A" X "B" =" SPC( 2) 
= A * B: RETURN 
PRINT A" / "B™ =" SPC( 2) 
= A / B: RETURN 
FOR T = 1 TO 500: NEXT ; 
DATA 89,79,85,32,70,76,85,78,75,58 
DATA FIRST,SECOND, THIRD, FOURTH 


Program 44 — BLACKJACK 


“I must complain the cards are ill shuffled till I have a good hand.” 


18 REM ** BLACKJACK ** 

20 REM 

30 FOR N = 1 TO 14:M$ = CHRS (32): NEXT N 

49 MS = MS + "BLACKJACK" + CHRS (13) 

50 FOR N = 1 TO 39:BS = BS + "="; NEXT N 

68 M$ = MS + BS 

7@ TEXT : HOME : PRINT M$ 

88 PRINT "THIS GAME IS AN APPROXIMATION OF THE” 

9@ PRINT "POPULAR CARD GAME KNOWN AS ‘BLACKJACK. '" 
190 PRINT : PRINT "YOU AND THE DEALER (THE COMPUTER) 
118 PRINT "CARDS IN AN ATTEMPT TO COMPILE A SUM* 
12@ PRINT "THAT APPROACHES, BUT DOES NOT EXCEED," 
130 PRINT "21. (EXCEEDING 21 IS A ‘BUST’ ~~ YOU" 
149 PRINT “AUTOMATICALLY LOSE THE ROUND.) *" 

158 VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
168 GET KS$ 

178 HOME : PRINT M$ 


186 DT = 6 
198 FOR N = 1 TO INT (2 * RND (1)) + 3 
208 D(N) = INT (12 * RND (1)) + 2 


219 DT = DT + D(N) 

220 NEXT N 

230 DN=N- 1 

246 HTAB 1: VTAB 4 

250 PRINT "THE DEALER HAS "DN" CARDS, AND THE* 
268 PRINT "TOP CARD IS "D(1)"." 

276 PRINT BS 

286 FOR N = 1 TO 2 

296 P(N) = INT (12 * RND (1)) + 2 

300 NEXT N 

319 PN=N- 1 

320 PT = B 

338 HTAB l: VTAB 8 

349 PRINT “YOUR CURRENT HAND LOOKS LIKE THIS:" 
350 HTAB 1: VTAB 10 

360 FOR N = 1 TO PN 

370 PRINT P(N); SPC( 2) 

380 PT = PT + P(N) 

390 NEXT N 

408 IF PT > 21 THEN 560 

41@ HTAB l: VTAB 12: CALL — 868 

42@ PRINT "WANT ANOTHER CARD (Y/N)? "; 

438 GET KS 

440 IF K$ < > "Y¥" THEN 479 

450 PN = PN + 1:P(PN) = INT (12 * RND (1)) + 2 
468 GOTO 326 

470 IF K$ < > "N" THEN 439 

480 HTAB 1: VTAB 14: PRINT BS 


— Swift 


DRAW" 


79 


496 
506 


526 
530 
548 
558 
568 
578 
580 
598 
680 
619 
628 
638 
648 
658 
668 
678 
689 
698 
700 
718 
720 
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HTAB 1: VTAB 16 

PRINT "YOU HAVE "pT," 

PRINT "DEALER HAS "DT"," 

IF DT > 21 THEN 610 

IF DT = PT THEN 640 

IF ABS (21 - DT) < ABS (21 — PT) THEN 648 
GOTO 618 


HTAB 1: VTAB 12: CALL —- 868 

HTAB 14 

FLASH : PRINT "** BUSTED **" 

FOR N = 1 TO 4: CALL —- 198: NEXT N 


NORMAL : GOTO 646 

HTAB 14: VTAB 19 

INVERSE : PRINT "“** YOU WIN **" 

NORMAL : GOTO 678 

HTAB 11: VTAB 19 

INVERSE : PRINT "** DEALER WINS **" 

NORMAL : GOTO 679 

HTAB 1: VTAB 22 

PRINT "WANT TO PLAY ANOTHER HAND (Y/N)? "; 
GET KS$ 


IF K$ = "Y¥" THEN 178 
IF K$ = "N" THEN HOME : END 
GOTO 696 


Program 45 FAIR BLACKJACK 


“I always sit with mah back to tha wall. Thataways I can see whosa commin’ through tha 


door.” 
—Line from the 1958 western film, Billy's Brothers Make Snake Creek Look Bad. 


It’s 


16 

28 

38 

49 

58 

66 

76 

88 

98 

188 
116 
128 
136 
148 
15@ 
168 
178 
188 
196 
208 
218 
2298 
238 
248 
258 
268 
278 
288 
296 
386 
3198 
320 
338 
340 
358 
368 
378 
388 
398 
4608 
4198 
420 
4308 
446 


tough to beat the house with this one. 


REM ** FAIR BLACKJACK ** 
REM 
FOR N = 1 TO 14:M$ = CHRS$ (32): NEXT N 
MS = M$ + "BLACKJACK" + CHRS$ (13) 
FOR N = 1 TO 39:B$ = BS + "="; NEXT N 
MS = MS + BS 
TEXT : HOME : PRINT M$ 
PRINT "THIS GAME IS AN APPROXIMATION OF THE" 
PRINT “POPULAR CARD GAME KNOWN AS ‘BLACKJACK. '* 
PRINT : PRINT "YOU AND THE DEALER (THE COMPUTER) 
PRINT "CARDS IN AN ATTEMPT TO COMPILE A SUM*® 
PRINT “THAT APPROACHES, BUT DOES NOT EXCEED," 
PRINT “21. (EXCEEDING 21 IS A ‘BUST’ -- YOU" 
PRINT "AUTOMATICALLY LOOSE THE ROUND.)" 


VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
GET K$ 

HOME : PRINT M$ 

DT = @ 

FOR N= 1 TO INT (2 * RND (1l)) + 3 

D(N) = INT (12 * RND (1)) + 2 

DT = DT + D(N) 

NEXT N 

DN=N- 1 


HTAB 1: VTAB 4 


PRINT “THE DEALER HAS "DN" CARDS, AND THE" 
PRINT "TOP CARD IS "D(1)*.* 

PRINT BS 

FOR N = 1 TO 2 

P(N) = INT (12 * RND (1)) + 2 

NEXT N 

PN=N-1 

PT = 8 


HTAB 1: VTAB 8 

PRINT "YOUR CURRENT HAND LOOKS LIKE THIS:" 
HTAB 1: VTAB 18 

FOR N = 1 TO PN 

PRINT P(N); SPC( 2) 
PT = PT + P(N) 

NEXT N 

IF PT > 21 THEN 649 

HTAB 1: VTAB 12: CALL - 868 
PRINT “WANT ANOTHER CARD (Y/N)? "; 
GET K$ 

IF K$ < > "Y¥" THEN 479 


DRAW" 
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456 
460 
476 
486 
498 
586 
518 
528 
536 
548 
556 
568 
578 
588 
598 
688 
618 
628 
636 
648 
658 
666 


688 
698 
768 
716 
728 
736 
748 
758 
768 
778 
786 
798 
868 
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PN = PN + 1:P(PN) = INT (12 * RND (1)) + 2 
GOTO 326 

IF KS < > "N" THEN 436 

IF PT = 21 OR INT (4 * RND (1)) = @ THEN 560 


IF DT < = 21 AND ABS (21 - DT) < ABS (21 - PT) THEN 568 
DT = D(1) 

FOR N = 2 TO DN 

D(N) = INT (12 * RND (l)) + 2 

DT = DT + D(N) 

NEXT N 

GOTO 496 


HTAB 1: VTAB 14: PRINT BS 

HTAB 1: VTAB 16 

PRINT “YOU HAVE "PT",* 

PRINT "DEALER HAS "DT"," 

IF DT > 21 THEN 696 

IF DT = PT THEN 726 

IF ABS (21 - DT) < ABS (21 - PT) THEN 726 
GOTO 696 

HTAB 1: VTAB 12: CALL - 868 

HTAB 14 

FLASH : PRINT "** BUSTED **" 

FOR N = 1 TO 4: CALL -—- 198: NEXT N 
NORMAL : GOTO 726 

HTAB 14: VTAB 19 

INVERSE : PRINT "** YOU WIN **" 
NORMAL : GOTO 758 

HTAB 1l: VTAB 19 

INVERSE : PRINT "** DEALER WINS ***" 
NORMAL : GOTO 758 

HTAB 1: VTAB 22 

PRINT “WANT TO PLAY ANOTHER HAND (Y/N)? "; 
GET KS 

IF K$ = "Y" THEN 179 

IF K$ = "N" THEN HOME : END 

GOTO 776 


Program 46 PRESIDENTS QUIZ 


“The buck stops here.” 
—President Harry S. Truman 


This is a legitimate self-teaching program. No kidding—it really is. 


1@ REM ** U.S, PRESIDENTS QUIZ ** 
20 REM 
3@ FOR N = 1 TO 16:M$ = M$ + CHRS$ (32): NEXT N 
40 M$ = MS + "U.S. PRESIDENTS QUIZ" + CHRS$ (13) 
5@ FOR N = 1 TO 40:M$ = MS + "*": NEXT N 
68 DIM 1$(48) 
78 FOR N = 1 TO 48 
88 READ F,I$(N) 
98 NEXT N 
1a@ TN = INT (39 * RND (1)) +1 
119 TNS = I$(TN) 
128 Q$(1) = IS(TN + 1) 
c=@ 


149 FOR N = 1 TO 3 

158 QS(N + 1) = I$( INT (40 * RND (1)) +1) 
166 C=C + 1: IF C < 26 THEN 199 

178 HTAB 1: VTAB 3 

188 PRINT "PLEASE WAIT ...": CALL —- 958 
198 IF Q$(N + 1) TNS THEN 158 

298 FOR X = 1 TO 
219 IF QS(N + 1) 
220 NEXT X 

238 NEXT N 

24@ R$(5) = "NONE OF THE ABOVE" 

250 FOR N = 1 TO 4 

268 RS(N) = Q$( INT (4 * RND (1)) +1) 

270 IF N = 1 THEN 319 

288 FOR X=1TON-1 

298 IF RS$(X) = R$(N) THEN 268 

399 NEXT X 

318 NEXT N 

320 HOME : PRINT M$ 

330 PRINT "WHICH ONE IMMEDIATELY SUCCEEDED" 
348 PRINT "PRESIDENT "“TNS"?" 

358 PRINT 

368 FORN=11T05 

378 PRINT TAB( 5);N" ~ "RS(N) 

388 NEXT N 

398 PRINT 

408 GET K$ 

418 NG = NG + 1 

420 IF K$ < "1" OR K$ > "5" THEN 400 

430 K = VAL (KS) 

449 IF RS$(K) = Q$(1) THEN 478 

459 PRINT "THAT IS INCORRECT." 

468 GOSUB 498: GOTO 138 

478 PRINT "THAT IS CORRECT." 


Hai 


Q$(X) THEN 158 


489 
498 
580 
519 
520 
530 
548 
558 
560 
570 
588 
598 
620 
610 
620 
638 
648 
6598 
660 
678 
688 
698 
700 
710 
726 
738 
748 
750 
760 
779 
788 
798 
880 
819 
820 
830 
8408 
850 
868 
878 
880 
890 
980 
9190 
920 
932 
940 
958 
960 
978 
980 
999 
1200 
12010 
12820 
1038 
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NC = NC + 1: GOSUB 498: GOTO 198 


HTAB 1: VTAB 16 

INVERSE 
S = INT (190 * NC / NG) 

PRINT “YOU HAVE "NC" CORRECT OUT OF "NG; SPC( 38 - POS 
PRINT 

PRINT "FOR A SCORE OF "“S"%" SPC( 38 - POS (@)) 
PRINT : NORMAL 

HTAB 1: VTAB 21 

PRINT “STRIKE THE SPACE BAR TO CONTINUE" 
PRINT "(OR THE X KEY TO END THIS: QUIZ) ..."; 
GET K$ 

IF KS = CHRS (32) THEN RETURN 
IF K$ = "X" THEN END 

GOTO 598 

REM 

DATA 1,GEORGE WASHINGTON 

DATA 2,JOHN ADAMS 

DATA 3,THOMAS JEFFERSON 

DATA 4,JAMES MADISON 

DATA 5,JAMES MONROE 

DATA 6,JOHN QUINCY ADAMS 

DATA 7,ANDREW JACKSON 

DATA 8,MARTIN VAN BUREN 

DATA 9,WILLIAM H. HARRISON 
DATA 1@,JOHN TYLER 

DATA 11,JAMES K. POLK 

DATA 12,ZACHARY TAYLOR 

DATA 13,MILLARD FILLMORE 

DATA 14,FRANKLIN PIERCE 

DATA 15,JAMES BUCHANAN 

DATA 16,ABRAHAM LINCOLN 

DATA 17, ANDREW JACKSON 

DATA 18,ULYSSES S. GRANT 

DATA 19,RUTHERFORD B. HAYES 
DATA 20,JAMES A. GARFIELD 
DATA 21,CHESTER A. ARTHUR 
DATA 22,GROVER CLEVELAND 

DATA 23,BENJAMIN HARRISON 
DATA 24,GROVER CLEVELAND 

DATA 25,WILLIAM MCKINLEY 

DATA 26,THEODORE ROOSEVELT 
DATA 27,WILLIAM H. TAFT 

DATA 28,WOODROW WILSON 

DATA 29, WARREN G. HARDING 
DATA 3@,CALVIN COOLIDGE 

DATA 31,HERBERT C. HOOVER 
DATA 32,FRANKLIN D. ROOSEVELT 
DATA 33,HARRY S. TRUMAN 

DATA 34,DWIGHT D. EISENHOWER 
DATA 35,JOHN F. KENNEDY 

DATA 36,LYNDON B. JOHNSON 

DATA 37,RICHARD M. NIXON 

DATA 38, GERALD R. FORD 

DATA 39,JIMMY CARTER 

DATA 4%,RONALD REAGAN 


(8)) 


Program 47 STATES, CITIES, AND CAPITALS 


“We pray for our leaders until we actually see them at work. Then we pray for our 
nation.” 
— Anonymous 


This is an honest-to-goodness good program, too. Believe me—really, it is for sure. 


16 REM ** STATES, CAPITALS AND CITIES ** 

26 REM 

36 FOR N = 1 TO 12:M$ = M$ + CHRS (32): NEXT N 
40 MS = MS + "NAME THE CAPITAL" + CHRS (13) 

50 FOR N = 1 TO 46:M$ = M$ + "*":; NEXT N 

60 TEXT : HOME : PRINT M$ 

70 DIM 1$(5@,4) 

86 FOR X = 1 TO 58 

90 READ N 

198 FOR Y = 1 TO 4 

116 READ I$(X,Y) 

120 NEXT Y,X 

138 X = INT (58 * RND (1)) +1 

146 FOR N = 1 TO 3:QS(N) = IS(X,N + 1 
15@ Q$(4) = 1$(5@ * RND (1) + 1,3 * 
166 FOR N = 1 TO 3 

170 IF Q$(4) = QS(N) THEN 1586 

186 NEXT N 

196 Q$(5) = "NONE OF THE ABOVE" 


): NEXT N 
RND (1) + 2) 


20@ CR = INT (4 * RND (1)) +1 
216 FOR N= 1 TO 4 
220 C = B 


230 RS(N) = O$( INT (4 * RND (4)) +1) 
240 C=C +1: IF C < 10 THEN 270 

250 HTAB 1: VTAB 3: PRINT "PLEASE WAIT ..." 
260 CALL — 958 

270 IF N = 1 THEN 310 

280 FOR Y= 1TON-=-1 

298 IF RS$(Y) = R$(N) THEN 230 

300 NEXT Y 

310 NEXT N 

328 R$(5) = Q$(5) 

330 HOME : PRINT MS 

340 PRINT “WHICH OF THE FOLLOWING IS THE CAPITAL" 
350 PRINT "OF “I$(X,1)" (1-5)?" 

368 PRINT 

370 FORN=1 705 

386 PRINT TAB( 5)N" ~ "RS(N) 

390 NEXT N 

400 PRINT 

410 GET KS 

420 IF K$ < "1" OR KS > "5" THEN 410 
430 PRINT K$ 

440 NT = NT + 1 
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450 
462 
470 
480 
490 
500 
518 
528 
538 


558 
566 
578 
586 
598 
680 
610 
620 
638 
648 
658 
668 
6708 
688 
690 
788 
718 
728 
730 
746 
758 
768 
770 
780 
790 
800 
818 
828 
830 
840 
858 
866 
870 
880 
8908 
980 
910 
920 
9308 
940 
958 
960 
970 
980 
990 
1060 
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IF R$( VAL (K$)) = I$(X,2) THEN 478 


PRINT : PRINT “SORRY, THAT IS NOT CORRECT.": GOSUB 498: GOTO 149 
PRINT : PRINT "THAT IS CORRECT." 
NC = NC + 1: GOSUB 498: GOTO 138 

INVERSE 

HTAB 1: VTAB 17 
SC = INT (100 * NC / NT) 

PRINT NC" CORRECT OUT OF "NT; SPC( 25 ~- POS (®)) 

PRINT 

PRINT "FOR A SCORE OF "SC"%" SPC( 25 ~ POS (@)) 

NORMAL 


HTAB 1: VTAB 28 
PRINT "STRIKE THE SPACE BAR TO CONTINUE (OR" 
PRINT "THE X KEY TO END THE QUIZ) ..."; 


GET KS 

LIF K$ = CHRS$ (32) THEN RETURN 

IF K$ = "X" THEN END 

GOTO 590 

DATA 1,ALABAMA,MONTGOMERY ,BIRMINGHAM, MOBILE 


DATA 2,ALASKA,JUNEAU, ANCHORAGE, FAIRBANKS 
DATA 3,ARIZONA, PHOENIX, TUCSON, FLAGSTAFF 
DATA 4,ARKANSAS,LITTLE ROCK,EL DORADO,FORT SMITH 
DATA 5,CALIFORNIA,SACRAMENTO,LOS ANGELES,SAN FRANCISCO 
DATA 6,COLORADO,DENVER,COLORADO SPRINGS, PUEBLO 
DATA 7,CONNECTICUT,HARTFORD, BRIDGEPORT ,WATERBURY 
DATA 8,DELAWARE,DOVER,MILFORD,NEW CASTLE 
DATA 9,FLORIDA, TALLAHASSEE ,JACKSONVILLE, MIAMI 
DATA 10,GEORGIA,ATLANTA,MACON, SAVANNAH 
DATA 11,HAWAII,HONOLULU ,WAIPAHU , KANEOHE 
DATA 12,IDAHO,BOISE,POCATELLO,IDAHO FALLS 
DATA 13,ILLINOIS,SPRINGFIELD,CHICAGO, PEORIA 
DATA 14,INDIANA, INDIANAPOLIS,FORT WAYNE,SOUTH BEND 
DATA 15,IOWA,DES MOINES,CEDAR RAPIDS,SIOUX CITY 
DATA 16,KANSAS,TOPEKA,KANSAS CITY,WICHITA 
DATA 17,KENTUCKY, FRANKFORT, LOUISVILLE, LEXINGTON 
DATA 18,LOUISIANA,BATON ROUGE,NEW ORLEANS, SHREVEPORT 
DATA 19,MAINE,AUGUSTA, PORTLAND, BRUNSWICK 
DATA 20,MARYLAND,ANNAPOLIS,BALTIMORE,SILVER SPRINGS 
DATA 21,MASSACHUSETTS,BOSTON,NEW BEDFORD,SPRINGFIELD 
DATA 22,MICHIGAN,LANSING,DETROIT,GRAND RAPIDS 
DATA 23,MINNESOTA,ST. PAUL,MINNEAPOLIS, ROCHESTER 
DATA 24,MISSISSIPPI,JACKSON,MERIDIAN, HATTIESBURG 
DATA 25,MISSOURI,JEFFERSON CITY,ST. LOUIS,SPRINGFIELD 
DATA 26,MONTANA,HELENA,BILLINGS,GREAT FALLS 
DATA 27,NEBRASKA, LINCOLN, OMAHA, HASTINGS 
DATA 28,NEVADA,CARSON CITY,LAS VEGAS, RENO 
DATA 29,NEW HAMPSHIRE, CONCORD, MANCHESTER, CLAREMONT 
DATA 30,NEW JERSEY, TRENTON ,NEWARK,ATLANTIC CITY 
DATA 31,NEW MEXICO,SANTE FE,ALBUQUERQUE, ALAMOGORDA 
DATA 32,NEW YORK,ALBANY,NEW YORK,SYRACUSE 
DATA 33,NORTH CAROLINA, RALEIGH, CHARLOTTE, WINSTON-SALEM 
DATA 34,NORTH DAKOTA,BISMARCK,FARGO,MINOT 
DATA 35,0HIO,COLUMBUS, CLEVELAND, CINCINNATI 
DATA 36,OKLAHOMA, OKLAHOMA CITY, TULSA,MUSKOGEE 
DATA 37,OREGON, SALEM, PORTLAND, EUGENE 
DATA 38,PENNSYLVANIA,HARRISBURG , PHILADELPHIA, PITTSBURGH 


1616 
1626 
1636 
10490 
1856 
16628 
1878 
19890 
1898 
1108 
1118 
1120 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


39,RHODE ISLAND, PROVIDENCE’, NEWPORT ,WARWICK 
46,SOUTH CAROLINA,COLUMBIA, AUGUSTA, CHARLESTON 
41,SOUTH DAKOTA,PIERRE,SIOUX FALLS,RAPID CITY 
42, TENNESSEE, NASHVILLE, MEMPHIS, KNOXVILLE 
43,TEXAS, AUSTIN, HOUSTON , DALLAS 

44,UTAH,SALT LAKE CITY,PROVO,OGDEN 

45, VERMONT, MONTPELIER, BURLINGTON, RUTLAND 

46, VIRGINIA, RICHMOND, NORFOLK, VIRGINIA BEACH 
47 ,WASHINGTON , OLYMPIA, SEATTLE, SPOKANE 

48,WEST VIRGINIA, CHARLESTON, HUNTINGTON, PARKERSBURG 
49,WISCONSIN,MADISON, MILWAUKEE,GREEN BAY 
5@,WYOMING ,CHEYENNE, LARAMIE, CASPER 
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Program 48 DRAW 


“Art is the highest form of flattery.” 


138 
146 
150 
168 
176 
186 
198 
208 
218 
228 
238 
248 
258 
268 
278 
288 
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— Overheard in a reducing salon in Miami Beach 


REM ** DRAW PICTURES ** 
REM 
TEXT : HOME 
HTAB 8: VTAB 8 
PRINT “SEE WHAT YOU CAN DRAW" 
VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
GET KS 
GR 
HOME 
FOR N = 1 TO 40: PRINT "-";: NEXT N 
PRINT "U=UP" SPC( 6)"D=DOWN" SPC( 6)"C=CHANGE COLOR" 
PRINT “L=LEFT" SPC( 4)"R=RIGHT" SPC( 5)"X=END PROGRAM" 
cL = 1 
CH = 26:CV = 20 
GOTO 268 
K = PEEK ( ~ 16384) 
IF K < 128 THEN 160 
POKE - 16368,0 


IF K = 213 AND CV > @ THEN CV = CV ~ 1: GOTO 269 
IF K = 196 AND CV < 38 THEN CV = CV + 1: GOTO 268 
IF K = 284 AND CH > @ THEN CH = CH ~- 1: GOTO 2686 
IF K = 218 AND CH < 39 THEN CH = CH + 1: GOTO 260 
IF K = 195 THEN CL CL +1 


IF CL > 15 THEN CL = @ 
IF K = 216 THEN TEXT : HOME : END 
COLOR= CL 

PLOT CH,CV 

GOTO 168 


Program 49 MASTERPIECE ART 


“Modern art is what happens when painters stop looking at girls and peruace them- 
selves they have a better idea.” 
—John Ciardi 


20 REM ** MASTERPIECE ART ** 
36 REM 

49 FOR N = 1 TO 12:M$ = M$ + CHRS$ (32): NEXT N 
56 MS = M$ + "MASTERPIECE ART" 

66 TEXT : HOME : PRINT M$: PRINT 

70 PRINT : PRINT “THIS IS A VERY SOPHISTICATED PRO-* 
86 PRINT "GRAM THAT GIVES ORDINARY COMPUTERS THE" 
99 PRINT "POWER TO GENERATE MASTERPIECES OF ART* 
190 PRINT "THAT RIVAL THOSE OF THE OLD MASTERS" 
11@ PRINT "OF THE PAST.": PRINT 

12@ PRINT "SIMPLY STRIKE THE SPACE BAR TO SEE" 
130 PRINT "THIS WONDERFUL TECHNIQUE WORKING BE-" 
149 PRINT "FORE YOUR VERY EYES." 

156 VTAB 21: PRINT “STRIKE THE SPACE BAR NOW ..."; 
166 GET KS: IF K$ < >" " THEN 169 

170 GR 

180 HOME : PRINT : PRINT MS 

198 FOR X = 1 TO 38: FOR Y = 1 TO 38 

266 C = 255 * RND (1) 

218 COLOR= c 

228 PLOT X,Y 

230 NEXT Y: NEXT X 

246 HOME : PRINT “SEE THE "; 

250 RESTORE 

260 FOR N= 1 TO INT (8 * RND (1)) +1 

276 READ N$: NEXT N 

286 PRINT NS"?* 

298 VTAB 23 

300 PRINT “STRIKE THE SPACE BAR TO PAINT ANOTHER" 
316 PRINT “PICTURE, OR ANY OTHER KEY TO END..."; 
326 GET KS: IF K$ = CHRS$ (32) THEN 170 

330 TEXT : HOME : END 

348 DATA DOGGIE,PRETTY LADY,KITTY CAT 

358 DATA CLOWN,MESSY BEDROOM,TASTY PIZZA 

368 DATA BEAUTIFUL MOUNTAINS, DEER BY THE CREEK 
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Program 50 WEATHER PREDICTOR 


“Ditto, ditto, ditto...” 


158 
168 
178 
180 
190 
208 
218 
228 
2308 
248 
250 
260 
2708 
280 
2908 
308 
3190 
328 
338 
348 
350 
368 
370 
388 
3908 
400 
410 
420 
430 
440 
450 
460 
470 
480 
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— Weather announcer in San Francisco 


REM ** WEATHER FORECASTER ** 

REM 

FOR N = 1 TO 11:X$ = X$ + CHRS$ (32): NEXT N 
FOR N = 1 TO 40:Y$ = Y$ + "%": NEXT N 


MS = X$ + "WEATHER FORECASTER" + CHRS$ (13) + Y¥$ 


TTS = "TEMPERATURE: " 
PPS = "PRECIPITATION (Y/N)? " 

TEXT : HOME : PRINT M$ 
PRINT "THIS IS A WEATHER-FORECASTING PROGRAM" 
PRINT "THAT IS SO ACCURATE THAT IT WILL PUT" 
PRINT "SOME LOCAL WEATHERPERSONS OUT OF WORK." 
PRINT 

PRINT "THE PROGRAM REQUESTS SOME WEATHER" 
PRINT "DATA FOR THE PAST THREE DAYS ~- MAKE" 
PRINT "SURE THAT YOU HAVE THE INFORMATION" 
PRINT "AT HAND BEFORE STARTING.": PRINT 
PRINT "IF YOU SUPPLY THE CORRECT SORT OF" 
PRINT "DATA, THE COMPUTER WILL PREDICT" 
PRINT "WEATHER FOR YOUR AREA," 

VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
GET K$: HOME : PRINT M$ 

PRINT ; PRINT “ENTER TODAY'S WEATHER SUMMARY:": PRINT 
PRINT TAB( 5)TTS; 

INPUT "";TT 

PRINT TAB( 5) PPS; 

GET TPS 

IF TP$ = "Y" OR TPS = "N" THEN 298 

GOTO 2686 

HOME : PRINT M$ 

PRINT : PRINT "ENTER YESTERDAY'S WEATHER SUMMARY:": PRINT 
PRINT TAB( 5)TTS; 

INPUT "";YT 

PRINT TAB( 5) PPS; 

GET YPS 

IF YP$ = "Y" OR YP$ = "N" THEN 378 

GOTO 340 

HOME : PRINT M$ 

PRINT "WEATHER SUMMARY FOR THE DAY BEFORE" 
PRINT "“YESTERDAY:": PRINT 

PRINT TAB( 5)TTS; 

INPUT "";DT 

PRINT TAB( 5) PPS; 

GET DPS 

IF DP$ = "Y" OR DPS = "N" THEN 460 

GOTO 430 

HOME : PRINT M$ 

FT = (3 * TT + 2 * YT + DT) / 6 

CP = @ 


490 
588 
5198 
5208 
538 
548 
558 
560 
578 
588 
598 
608 


IF TPS = "Y" THEN CP = CP + 59 

IF YP$ = "Y" THEN CP = CP + 25 

IF DPS = "Y" THEN CP = CP + 13 
CP = (19 * RND (1) ~— 5) + CP 


CP = ABS (CP) 


PRINT “WEATHER SUMMARY FOR THE NEXT TWO DAYS:": PRINT 
PRINT : PRINT TAB( 5) *TEMPERATURE:" 

PRINT TAB( 8)FT" DEGREES*: PRINT 

PRINT TAB( 5)"CHANCE OF PRECIPITATION: ” 

PRINT TAB( 8)CP"%" 

VTAB 21: PRINT "THAT'S ALL, FOLKS. 

END 
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Program 51 CRYSTAL BALL 


If someone gives you so-called good advice, do the opposite; you can be sure it will be 


the right thing nine out of ten times. 
Anselm Feuerbach 


10 REM ** CRYSTAL BALL ** 

20 REM 

30 M$ = “ELEMENTARY CRYSTAL BALL" + CHRS (13) 

46 FOR K = 1 TO 4@0:Y$ = Y$ + "@": NEXT K 

50 MS = MS + Y$ 

60 TEXT : HOME : PRINT M$ 

786 SPEED= 100 

88 PRINT "AS GREAT AS COMPUTERS ARE, THEY'VE YET" 
90 PRINT "TO BECOME THE MASTERS OF ALL VOCATIONS.” 
160 PRINT “THE CASE IN POINT IS A FORTUNE TELLER" 
119 PRINT “AND HER CRYSTAL BALL.": PRINT 

126 PRINT "THIS PROGRAM MARKS THE FIRST INTRUSION" 
130 PRINT "INTO THE AGE-OLD PROFESSION. ITS OPER-" 
140 PRINT "ATION IS LIMITED TO ANSWERING QUESTIONS" 
15@ PRINT "REQUIRING ‘YES' OR 'NO' RESPONSES." 

1686 SPEED= 255 

176 FOR T = 1 TO 2000: NEXT T 

18@ PRINT : FLASH 

198 GOSUB 608 

2008 VTAB 18: PRINT "BUT IT IS A START!" 

218 NORMAL 

228 VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ...";3 
230 GET K$ 

246 DIM AS$(4) 

258 FOR K = 1 TO 4: READ AS$(K): NEXT K 

260 HOME : PRINT MS 

270 VTAB 20: INVERSE 


286 PRINT “ASK QUESTIONS THAT HAVE 'YES'OR 'NO'™ SPC( 39 - POS (@)) 
296 PRINT : PRINT "ANSWERS. AND PLEASE USE NO PUNCTUATION."; 
300 PRINT SPC( 39 ~ POS (8)) 


319 NORMAL 

326 HTAB l: VTAB 6 

336 PRINT "WHAT IS YOUR QUESTION?": PRINT 

346 INPUT "";FS 

3560 IF LEN (FS) < 1 THEN 349 

360 IF RIGHTS (F$,1) = "2?" THEN 380 

370 FS = FS + "2" 

3860 N = INT ( RND (1) * 4 + 1) 

390 IF LEN (FS) < 5 THEN PRINT : PRINT "THAT'S A SHORT QUESTION." 
400 IF LEN (FS) > 25 THEN PRINT : PRINT "THAT'S A LONG QUESTION." 


418 FOR T = 1 TO 1500: NEXT T 
4260 PRINT : PRINT “I AM THINKING ON IT NOW ...” 
430 FOR T = 1 TO 2000: NEXT T 


440 GOSUB 600 

450 HOME : PRINT M$ 

460 PRINT “YOUR QUESTION WAS:": PRINT 
470 PRINT F$: PRINT Y$ 
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488 
496 
588 
510 
528 
538 
546 
556 
560 
570 
580 
598 
600 
618 
628 
630 
648 
658 
668 
676 
688 


SPEED= 58 

PRINT "THE CRYSTAL BALL SAYS:": PRINT 
FLASH : PRINT AS(N): NORMAL 

SPEED= 255 

FOR T = 1 TO 1500: NEXT T 

HTAB 1: VTAB 21 

PRINT “WANT TO PEER INTO THE CRYSTAL BALL" 
PRINT “AGAIN (Y/N)? "; 

GET KS: IF KS = "Y" THEN 260 

IF K$ < > "N" THEN 5686 

HOME : END 

DATA YES,NO,MAYBE,I CAN'T HELP YOU 


POKE ~- 16304,@0: POKE —- 16392,8° 
FOR V = 1 TO 26 
POKE - 16297,8 


FOR T = @ TO 10 

X = PEEK ( ~- 16336) 

NEXT T a) 
POKE —- 16298,9 

NEXT V 


TEXT : RETURN 
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Program 52° ~— PRIVATE SHRINK 


No one really listens to anyone else, and if you try it for a while, you'll see why. 


10 

28 

38 

40 

58 

68 

70 

80 

90 

1008 
116 
128 
136 
140 
158 
160 
1708 
186 
190 
208 
210 
228 
230 
240 
258 
268 
278 
280 
290 
308 
318 
328 
330 
340 
358 
368 
370 
388 
398 
400 
410 
420 
430 
440 
450 
460 
4790 
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REM 
REM 
DIM 
FOR 
FOR 
M$ = 
MS = 
TEX 
HOM 
VT. 
PR 
VT. 
PR 
FO 
IF 
CA 
wc 
GE 
PR 
IF 
IF 
IF 


NS (WC) 


GO 
FO 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
NE 
CA 
PR 
FO 
PR 
NE 
PR 
GO 
HO 
PR 
PR 
VT. 


—Mignon McLaughlin 
**x PRIVATE SHRINK ** 


NS (20) 
= 1 TO 14:M$ MS + CHRS (32): NEXT K 
= 1 TO 4@:Y$ Y$ + "=": NEXT K 
$ + "PRIVATE SHRINK" + CHRS (13) 
MS + Y$ 
T : HOME : PRINT MS 
E : PRINT M$ 
AB 21: PRINT Y$ 
INT “ENTER 'BUGOFF! TO END THE SESSION." 
AB 4 
INT CHRS (32);"WHAT'S ON YOUR MIND?" 
R K = 1 TO 1@:N$(K) = "": NEXT K 
PEEK (37) > 18 THEN VTAB 4 

LL —- 868 
= 1 
T K$ 

INT KS; 

POS (@) > 30 THEN PRINT : GOTO 258 

K$ CHRS$ (13) THEN 258 

K$ CHR$ (32) THEN WC = WC + 1:K$ = "* 
NS(WC) + KS 


K 
K 
M 


TO 188 

RL = 1 TO WC 

N$(1) = "BUGOFF" THEN 440 

N$(L) = "WHY" THEN NS$(L) = "* 

NS$(L) = "BECAUSE" THEN N$(L) = "* 

N$(L) = "WHO" THEN NS$(L) = "THEY" 

NS(L) = "WHAT" THEN NS$(L) = "THAT* 

NS(L) = "I" THEN NS$(L) = "YOU": GOTO 340 
N$(L) = "YOU" THEN NS$(L) = "ME" 

N$(L) = "ME" THEN NS$(L) = "YOU" 

N$(L) = "ARE" THEN NS$(L) = "AM": GOTO 360 
N$(L) = "AM" THEN NS(L) = "ARE" 
XT L 

LL - 868 

INT " WHY"; 

RL = 1 TO WC 

INT CHRS$ (32) ;N$(L); 

XT L 

INT "2" 

TO 148 
ME : PRINT M$ 

INT "THAT'S FINE WITH ME. I'LL SEND YOU THE" 
INT "BILL TOMORROW, * 

AB 21: END 


Program 53 ROBOT FLOOR PAINTER 


Q: What did one fly say to the other when the man started painting the fluor? 
A: Wow. Let’s make tracks. 


218 
229 
230 
2498 
258 
2690 
270 
289 
298 
368 
310 
320 
330 
348 
358 
360 
370 
380 
398 
400 
410 
420 
430 
440 
458 
460 


—From 101 Ugly Things to do With a Punster (unpublished manuscript) 


REM ** ROBOT FLOOR PAINTER ** 
REM 
TEXT : HOME 
PRINT "ROBOT FLOOR PAINTER® 
FOR K = 1 TO 48: PRINT *%";: NEXT K 
PRINT it 
PRINT "WHO SAYS ROBOTS ARE SMARTER THAN PEOPLE? 
PRINT "THIS ONE CANNOT PAINT THE FLOOR IN A* 
PRINT “ROOM WITHOUT EVENTUALLY SURROUNDING" 
PRINT “ITSELF WITH WIDE AREAS OF WET PAINT." 
PRINT : PRINT “THE THING IS FUN TO WATCH, THOUGH.” 
PRINT "IT CAN JUMP OVER NARROW AREAS OF PAINT," 
PRINT "AND IT IS SOMETIMES SURPRISING HOW MUCH" 
PRINT “OF THE JOB IT CAN COMPLETE." 
VTAB 21: PRINT “STRIKE ANY KEY TO START THE JOB ..."; 
GET KS 
GR : HOME : GOSUB 3798 
VTAB 23: PRINT "ROBOT FLOOR PAINTER"; 
H = 280:CV = 26:T = O@:NG = Q 
INT (5 * RND (l)) - 2 
INT (5 * RND (l)) - 2 
I = @ AND J = @ THEN 200 
T + 1: IF T > 1808 THEN 449 
H = CH + I:NV = CV + J 
IF SCRN( NH,NV) < > @ THEN 280 
G = PEEK ( ~- 16336) 
NG = NG + 1:T = @ 
HTAB 1: VTAB 21 
INVERSE : PRINT "COMPLETION: "; 
PRINT INT (1808 * NG / 12990) "%* 
COLOR= 13 
PLOT CH,CV 
COLOR= 9 
PLOT NH,NV 
CH = NH:CV = NV 
GOTO 2498 
COLOR= 15 
Xx = @ 
FOR N 
FOR N 
FOR N 
FOR N 
RETURN 
FOR N = 1] TO 5: CALL - 198: NEXT N 
NORMAL 
VTAB 23 


I 


i ae 


c 
I 
J 
T 
N 


@ TO 1: HLIN 6,39 AT N: NEXT N 
38 TO 39: HLIN 8,39 AT N: NEXT N 
@ TO 1: VLIN @,39 AT N: NEXT N 
38 TO 39: VLIN 8,39 AT N: NEXT N 
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476 PRINT "STRIKE THE SPACE BAR TO TRY AGAIN" 


480 PRINT "(OR THE X KEY TO TRY SOMETHING ELSE)."; 
496 GET K$ 
508 IF K$ 
518 IF K$ 


= "X" THEN TEXT : HOME : END 
526 GOTO 490 


CHR$ (32) THEN 178 
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Program 54 ROBOT LAWNMOWER 


The grass might look greener on the other side of the fence, but it grows faster on my 
side. 
—From A Treasury of Greatest Gripes (unpublished) 


1@ REM ** ROBOT LAWNMOWER ** 

28 REM 

30 M$ = "ROBOT LAWNMOWER® + CHRS$ (13) 

49 FOR N = 1 TO 40:M$ = M$ + "$": NEXT N 

5@ TEXT : HOME : PRINT M$ 

60 PRINT “IT IS SAFE TO SAY THAT ROBOTS WILL SOON" 
70 PRINT “RELIEVE US OF THE TIRESOME CHORE OF" 

88 PRINT "MOWING OUR LAWNS. THE ROBOT LAWN MOWER" 
99 PRINT “DEMONSTRATED IN THIS PROGRAM ISN'T* 

190 PRINT “PARTICULARLY EFFICIENT, BUT IT" 

116 PRINT “EVENTUALLY DOES THE JOB." 

128 PRINT 

130 PRINT : PRINT “LEGENDS FOR THIS SIMULATION:": PRINT 
149 PRINT "ORANGE -~ THE ROBOT LAWNMOWER 

15@ PRINT "DARK GREEN -- UNCUT GRASS" 

169 PRINT “LIGHT GREEN -- CUT GRASS" 

178 PRINT “WHITE -- FENCE AROUND THE LAWN" 

188 PRINT "YELLOW -~ YOUR HOUSE" 

199 PRINT “BLUE-GREEN ~- STUFF THAT THE LAWN-" 
206 PRINT TAB( 5)"MOWER ISN'T SUPPOSED TO TOUCH" 
218 VTAB 22: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
220 GET KS 

230 GR : HOME : GOSUB 398 

249 VTAB 22: PRINT "STRIKE ANY KEY TO END THE SIMULATION ..."; 
258 CH = 20:CV = 20 

268 I = INT (5 * RND (1)) ~ 2 

270 J = INT (5 * RND (1)) - 2 

280 IF I = @ AND J = @ THEN 268 

290 NH = CH + I:NV = CV + J 

300 IF SCRN( NH,NV) > 12 THEN 260 

310 G = PEEK ( - 16336) 

328 HTAB l: VTAB 21 

330 COLOR= 12: PLOT CH,CV 

348 COLOR= 9: PLOT NH,NV 

350 CH = NH:CV = NV 

368 K = PEEK ( — 16384): POKE - 16368,0 

370 IF K > 127 THEN TEXT : HOME : END 

388 GOTO 299 

398 COLOR= 4 

408 FOR N = @ TO 39 

418 VLIN 0,39 AT N 

420 NEXT N 

438 COLOR= 15 


449 FOR N = ®@ TO 1: HLIN 9,39 AT N: NEXT N 
450 FOR N = 38 TO 39: HLIN 6,39 AT N: NEXT N 
460 FOR N = ® TO l: VLIN 8,39 AT N: NEXT N 
470 FOR N = 38 TO 39: VLIN @,39 AT N: NEXT N 
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480 
490 
508 
510 
528 
530 
548 
550 
568 
570 
588 
590 
680 
610 
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COLOR= 13 
FOR N = 18 TO 22 
VLIN 12,16 AT N 


NEXT N 

COLOR= 14 

FOR N = 1 TO 12 
W = INT (36 * RND (1)) + 2 
Z = INT (36 * RND (1)) + 2 


FOR X = WTO W + 3 

FOR Y = Z TO Z + 3 

IF SCRN( X,Y) < > 4 THEN 549 
PLOT X,Y 

NEXT Y,X,N 

RETURN 


Program 55 WALLPAPER SAMPLES 


“nuff said.” 
—A full day’s conversation overheard in Hooksett, New Hampshire 
19 REM ** WALLPAPER SAMPLES ** 
29 RE 
38 M$ = “CUSTOM WALLPAPER SAMPLES" + CHRS (13) 
48 FOR N = 1 TO 40:M$ = M$ + "=": NEXT N 
5@ TEXT : HOME : PRINT MS 
68 PRINT "HI. WHAT'S YOUR FIRST NAME?" 
78 INPUT "";N$ 
80 IF LEN (NS$) < 1 THEN 78 
98 IF RIGHTS (N$,l1) < > CHRS$ (32) THEN 110 
108 NS = RIGHTS (NS, LEN (NS) — 1) 
119 IF LEN (P$) < 4@ THEN P$ = N$ + P$: GOTO 110 
120 P$ = LEFTS$ (P$,40) 
130 NS = N$ + CHR$ (32) 
140 IF LEN (Q$) < 48 THEN Q$ = N$ + QS: GOTO 1486 
158 Q$ = LEFTS (Q$,40) 
168 VTAB 21: PRINT "STRIKE ANY KEY TO SEE YOUR CUSTOM* 
178 PRINT "WALLPAPER SAMPLES ..."; 
188 GET KS$ 
198 FOR C = 1 TO 6: FOR P = 8 TO 1 
288 NORMAL : HOME : PRINT MS 
218 IF P = 1 THEN INVERSE 
228 ON C GOSUB 268,310,368,478,580,648 
238 NEXT P,C 
248 NORMAL 
250 HOME : END 
268 FOR L = 4 TO 19 
278 HTAB 12: VTAB L 
280 PRINT LEFTS (PS$,L —- 3) 
298 NEXT L 
388 GOTO 788 
318 FOR L = 8 TO 18 
32@ HTAB 12: VTAB L 
330 PRINT LEFTS (P$,16) 
348 NEXT L 
358 GOTO 7868 
368 FOR L = 4 TO 19 
378 HTAB 1: VTAB L 
388 PRINT P$ 
398 NEXT L 
400 FOR L = 5 TO 18 
410 HTAB 12: VTAB L 
42@ FOR S = 1TOL- 4 
430 PRINT CHRS$ (32); 
448 NEXT S,L 
450 HTAB 1: VTAB 21 
468 GOTO 788 
470 FOR L = 4 TO 19 
48@ HTAB 1: VTAB L 
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490 
588 
518 
528 
538 
548 
558 
568 
5708 
588 
590 
680 
618 
620 
638 
648 
658 
668 
678 
688 
698 
788 
718 
728 
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PRINT 
NEXT L 
FOR L 
HTAB 1 
FOR S 
PRINT 
NEXT §S 
HTAB 1 
GOTO 7 
FOR L 
HTAB 1 
PRINT 
NEXT L 
HTAB 1 
GOTO 7 
HTAB 1 


PS 


= 6 TO 16 
2: VTAB L 
= 1 TO 16 
CHRS (32); 

iL 

: VTAB 21 
80 

=> 4 TO 19 

: VTAB L 


Qs 


: VTAB 21 
88 
: VTAB 4 


PRINT QS; CHRS$ (32); 


IF PE 
HTAB 1 
FOR N 
GOTO 7 
FOR T 
CALL 
RETURN 


EK (37) < 28 THEN 659 
: VTAB PEEK (37) + 1 
= 1 TO 40: PRINT CHRS (32);: 


8d 
= 1 TO 15886: 
~ 198 


NEXT T 


NEXT N 


Program 56 DON’T TOUCH 


“The only way to be rid of a temptation is to yield to it.” 
—Oscar Wilde 


16 REM ** DON'T TOUCH! ** 


26 REM 

30 N = 1:X = 6: GOSUB 258 
40 N = 2:X = 27: GOSUB 258 
586 N = 3:X = 32: GOSUB 250 


66 TEXT : HOME 

76 4HTAB 11: VTAB 8 

88 FLASH : PRINT “DON'T TOUCH ANY KEY": NORMAL 
90 K = PEEK ( ~- 16384): IF K < 128 THEN 99 


108 POKE - 16368,8 

110 FOR H = 1 TO 25 

120 FOR T = 1 TO 150: NEXT T 
136 CALL - 198 

140 X = INT (8 * RND (1)) 
156 HTAB 1 


160 VTAB 22 * RND (1) + 1: CALL - 868 
176 IF X > 5 THEN 200 

186 HTAB 32 * RND (1) + 1: PRINT MS$(1); 
199 NEXT H: GOTO 220 

200 HTAB 11 * RND (1) + 1: PRINT M$(2); 
210 NEXT H 

220 HTAB 1: VTAB 21 

230 FLASH : PRINT M$(3): NORMAL 

249 END 

250. FOR Y = 1 TO X 
260 READ D:MS$(N) = 
270 NEXT Y 

280 RETURN 

298 DATA 72,65,45,72,65,46,73,32,75,78,69 
300 DATA 87,32,89,79,85,32,67,79,85,76 

310 DATA 68,78,39,84,32,82,69,83,73,83,84,33 
328 DATA 77,65,67,72,73,78,69,83,32,65 

330 DATA 82,69,32,83,85,80,69,82,73,79 

349 DATA 82,32,84,79,32,72,85,77 

358 DATA 65,78,83,33 


MS(N) + CHRS (D) 
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Program 57: COMPUTER FIXER 


He who is first to screw it up is often last to read the instructions. 
—From Wisdom of the Computer Age (unpublished) 


1@ REM ** COMPUTER FIXER ** 


28 REM 

38 GOSUB 576 

4@ FOR X = 1 TO 2 

5@ HOME 

66 FLASH : IF X = 2 THEN NORMAL : INVERSE 
7®@ FOR N = 1 TO 4 

8@ IF X = 1 THEN CALL - 198 


98 PRINT M$(1) SPC( 2) 

199 NEXT N 

118 GOSUB 536 

120 NEXT X 

138 NORMAL 

149 PRINT : PRINT M$(2): PRINT 

15@ GOSUB 536 

168 SPEED= 109 

170 PRINT M$(3) 

180 PRINT M$(4) SPC( 1)M$(5) 

199 PRINT M$(6)"!" 

208 SPEED= 255 

218 GOSUB 456 

228 FOR N= 1 TO 4 

238 GOSUB 368 

249 FOR T = 1 TO 508 

250 NEXT T,N 

268 HTAB 1: VTAB 21 

278 FLASH 

288 PRINT M$(9) SPC( 1)M$(1@); 

296 FOR N = 1 TO 2: GOSUB 536: NEXT N 
300 NORMAL 

318 HTAB 1: VTAB 21: CALL - 958 
328 BX = BX + l: IF BX < 3 THEN 219 
330 HOME : PRINT "DONE" 

340 PRINT : PRINT CHRS$ (93); 

358 GOTO 359 

36@ POKE - 16304,0: POKE - 16302,0 
378 FOR V = 1 TO 10 

380 POKE 16297,8 

398 FOR X = @ TO 19 

408 X = PEEK ( — 16336) 

416 NEXT X 

428 POKE ~ 16298,0 

430 NEXT V 

440 TEXT : RETURN 

459 FOR N = 1 TO 8 

468 CV = 16 * RND (1) + 16:CH = 33 * RND (1) + 1 
470 HTAB 1: VTAB CV: CALL —- 868 
48@ HTAB CH: VTAB CV 
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490 
588 
518 
520 
538 
548 
558 
568 
5786 
588 
596 
688 
618 
620 
6308 
648 
656 
668 
678 
680 
690 
708 
719 
728 
730 
748 
750 
768 
778 
788 
796 
800 
810 
829 
830 


PRINT M$(2 * RND (1) + 7)3":" 
GOSUB 54g 

NEXT N 

RETURN 

FOR T = 1 TO 1500: NEXT T: RETURN 
FOR T = 1 TO 5@ * RND (1) + 30 

IF T < 20 THEN G = PEEK ( - 16336) 
NEXT T: RETURN 

READ M$(1) 
X = 2:E = 8: GOSUB 689 

READ M$ (3) 
X = 4:E = 17: GOSUB 688 
READ M$(5) 
= 6:E = 11: GOSUB 680 
= 7:E = 7: GOSUB 689 

= = 5: GOSUB 689 
REA ( 
= 1l: GOSUB 688 

FOR N = 1TOE 

READ D 
MS(X) = MS$(X) + CHR$ (D) 

NEXT N 

RETURN 

DATA ACHTUNG! 

DATA 83,85,67,75,69,82,33,33 

DATA YOU'VE JUST STARTED A PROGRAM THAT 
DATA 73,83,32,78,79,87,32,6&,69,83 

DATA 84,82,79,89,73,78,71 

DATA THIS COMPUTER 

DATA 70,82,79,77,32,87,73,84,72,73,78 
DATA 72,69,69,45,72,69,69 

DATA 72,65,45,72,65 

DATA THAT IS ANOTHER MICROCHIP 

DATA 66,69,73,78,71,32,78,82,73,69,68 
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Program 58 WHAT'S WRONG #1 


In a few minutes a computer can make a mistake so great that it would take many men 
many months to equal it. 


100 


104 


—Merele L. Meacham 


REM ** WHAT'S WRONG? ** 

REM 

HOME : VTAB 12 

FOR N = 32 TO 1 STEP - 1 

READ D: HTAB N: PRINT CHRS$ (D); 

NEXT N 

VTAB 21 

DATA 87,72,65,84,32,73,83,32,87,82,79 
DATA 78,71,32,87,73,84,72,32,84,72,73 
DATA 83,32,80,82,79,71,82,65,77,63 


Program 59 WHAT’S WRONG # 2 


What’s wrong? What’s right? Wrong’s right. Right’s wrong. What’s what? It’s what... 


—Overheard in a coffee house in Greenwich Village, circa 1957 


19 REM ** WHAT'S WRONG #2 ** 

26 REM 

36 DIM Q(34) 

40 M1$ = "Q: WHAT'S WRONG WITH THIS PROGRAM? 
58 FOR N = 1 TO 34 


66 Q(N) = ASC ( MIDS (M1$,N,1)) 
76 NEXT N 
86 HOME 


96 FOR N = 1 TO 286 

1@@ HTAB 17 + N: VTAB N 

116 PRINT CHRS$ (Q(N)) 

126 NEXT N 

136 FOR N= 1 TO 14 

148 HTAB 18 + N: VTAB N + 3 

156 PRINT CHRS$ (Q(N + 28)) 

168 NEXT N 

176 CALL - 198 

188 SPEED= 56 

198 FOR T = 1 TO 2566: NEXT T 

200 FOR N = 1 TO 23 

210 G = PEEK ( - 16336) 

228 HTAB 16 + N: VTAB N 

23@ READ D: PRINT CHR$ (D); 

248 NEXT N 

250 FOR N = 1 T0 17 

268 G = PEEK ( ~ 16336) 

270 HTAB 11 + N: VTAB N + 3 

288 READ D: PRINT CHRS$ (D) 

299 NEXT N 

30@ SPEED= 255 

31@ HTAB 1: VTAB 21: END 

326 DATA 65,58,32,78,79,84,72,73,78,71,46,32,84 
330 DATA 72,69,32,86,73,67,84,85,82,69,32,84,85 
348 DATA 66,69,32,73,83,32,67,82,79,79,75,69,68,46 
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Program 60 SURROGATE CUSSER 


$% ~ &**@ 


18 
20 
38 
40 


62 

78 

80 

98 

180 
110 
128 
130 
148 
158 
168 
178 
188 
190 
2008 
218 
220 
230 
248 
2508 


278 
2808 
298 
380 
318 
320 
330 
3408 
350 
3608 
370 
380 
390 
400 
410 
420 
430 
440 
4508 
460 
470 
480 
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—Overheard at least 200 times daily in 70 different cities around the world. 


REM ** SURROGATE CUSSER ** 
REM 
FOR K = 1 TO 12:M$ = M$ + CHRS$ (32): NEXT K 


MS = M$ + “SURROGATE CUSSER™ + CHRS (13) 


FOR K = 1 TO 40:M$ = M$ + "*": NEXT K 
TEXT : HOME : PRINT M$ 
PRINT “EVERYONE GETS ANGRY AT SOMEONE OR SOME-" 
PRINT "THING EVERY ONCE IN A WHILE. THERE'S" 
PRINT "REALLY NOTHING WRONG WITH THAT. SOME" 
PRINT "FOLKS, HOWEVER, ARE RELUCTANT TO EX-" 
PRINT "PRESS THOSE FEELINGS, THEMSELVES." 
PRINT : PRINT “COMPUTERS ARE SUPPOSED TO BE OUR" 
PRINT "SERVANTS; AND THAT IS INDEED THE CASE" 
PRINT "HERE." 
VTAB 21: PRINT “STRIKE ANY KEY TO CONTINUE ..."; 
GET K$ 


FOR K = 1 TO 4: READ WS$(K): NEXT K 
FOR K = 1 TO 4: READ A$(K): NEXT K 
READ C$(1) 


HOME : PRINT MS 

PRINT "ARE YOU:": PRINT 

PRINT TAB( 5)"(1) A LITTLE BIT ANGRY" 
PRINT TAB( 5)"(2) SOMEWHAT ANGRY" 

PRINT TAB( 5)"(3) VERY ANGRY" 

PRINT TAB( 5)"(4) VERY, VERY ANGRY" 
VTAB 14: PRINT "SELECT ONE: "; 

GET K$: IF K$ < "1" OR K$ > "4" THEN 270 
ON VAL (K$) GOTO 298,398,478,560 


GOSUB 738 

N = INT ( RND (1) * 4 + 1) 

c$ = ""3;CS = CS + WS(N) + PS 

N = INT ( RND (1) * 4 + 1):C$ = C$ + AS(N) 


PRINT : PRINT C$ 
HTAB 1: VTAB 21 
PRINT “WOULD YOU LIKE MORE CUSSING (Y/N)? "; 


GET K$: IF K$ = "Y" THEN 200 

IF K$ < > "N" THEN 368 

HOME : END 

GOSUB 730 
N = INT ( RND (1) * 4 + 1) 
C$ = WS(N) + CHRS$ (32) + PS + CHRS$ (32) 
N = INT ( RND (1) * 4 + 1) 


C$ = C$ + AS(N) 

PRINT : FLASH : PRINT C$: NORMAL 
K = 7: GOSUB 848 

GOTO 340 

GOSUB 730 

FLASH 


498 
586 
516 
528 
538 
546 
558 
568 
576 
588 
598 
680 
618 
628 
638 
646 
658 
668 
6798 
688 
698 
788 
710 
720 
738 
746 
756 
768 
776 


798 
896 
818 
820 
836 
840 
850 


FOR N = 1 TO 4 * RND (1) + 3 


PRINT C$(1) SPC( 1)P$ SPC( 1)C$(1) 
K = 3: GOSUB 8498 

NEXT N 

NORMAL 
K = 5: GOSUB 8498 

GOTO 3498 

HOME : PRINT MS 

PRINT "THIS ONE IS ESPECIALLY VULGAR. WOMEN" 
PRINT "AND CHILDREN SHOULD LEAVE THE ROOM!" 
PRINT : PRINT “STRIKE ANY KEY WHEN READY ..." 
GET K$ 

PRINT : PRINT "ARE YOU REALLY READY FOR THIS (Y/N)? “%; 
GET K$: IF K$ = "N" THEN 348 

IF K$ < > "Y¥" THEN 620 

HOME : PRINT MS 

FOR N = 1 TO 32 
Y = RND (1): IF Y > .6 THEN FLASH : GOTO 7998 


IF Y > .3 THEN INVERSE : GOTO 709 
B= INT (Y * 18 + 1) 
K = B: GOSUB 849 
PRINT C$(1);: NORMAL 
FOR T = 1 TO B * 25: NEXT T 
NEXT N:; GOTO 348 
HOME : PRINT M$ 
PRINT "WHO OR WHAT IS THE OBJECT OF YOUR ANGER?" 
PRINT 
PRINT "(IF NO ONE OR NOTHING IN PARTICULAR," 
PRINT " SIMPLY STRIKE THE RETURN KEY.) " 
PRINT : INPUT P$ 
P$ = CHRS$ (32) + P$ + CHRS$ (32) 
HOME : PRINT M$: RETURN 
DATA DARN,DOGGONE, SHOOT, FIDDLESTICKS 
DATA JERK,MORON,WHIMP, IDIOT 
DATA #S%& (*#0! 
FOR U = 1 TO K: CALL - 198: NEXT U 
RETURN 
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Program 61 ARROW SHOOT | 


It is commonly known that Mr. Running ‘“Quick-Draw” Silverhorse of Truth Or Con- 
sequences, New Mexico, holds the world record for the greatest number of arrows fired 
from a standard bow in 14 seconds: 28 of them. What is not so commonly known is his 
nickname: Old Scarfoot. 

—From Personal Accounts of the Ol West (unpublished) 


18 REM ** SIMPLE ARROW SHOOT (#1) ** 


20 REM 
380 FOR N = 1 TO 39:BS = BS + "=": NEXT N 
49 FOR N = 1 TO 17:C$ = C$ + CHRS$ (13): NEXT N 


5@ M$ = "ARROW SHOOT #1 
60 TEXT : HOME 

70 VTAB 12: PRINT TAB( 13)"ARROW SHOOT #1" 
88 HTAB 5S: PRINT "A SIMPLE GAME FOR SIMPLE MINDS" 
98 FOR T = 1 TO 2000: NEXT T 

199 VTAB 23 

110 FOR P = 1 TO 15 

126 FOR T = 1 TO S@: NEXT T 

138 PRINT : NEXT P 

149 HOME : PRINT MS 

159 FES = "ARROW":FS = ">":CH = 1: GOSUB 726 
160 FES = "TARGET":FS = "*":CH = 39: GOSUB 720 
178 HOME : PRINT M$ 

188 VTAB 4 

199 PRINT "VERY GOOD. NOW, YOUR OBJECTIVE IS TO" 
200 PRINT “SHOOT THE ARROW THING:" 

210 CALL ~ 198: PRINT 

220 PRINT TAB( 19)">": PRINT 

230 FOR T = 1 TO 2000: NEXT T 

248 PRINT "AT THE TARGET THING:" 

250 CALL - 198: PRINT 

268 PRINT TAB( 19)"*": PRINT 

270 PRINT "UNDERSTAND?"; 

280 GET K$: IF K$ = "Y" THEN 320 

290 IF K$ < > "N" THEN 280 

300 PRINT : PRINT "TOO BAD." 

318 FOR T = 1 TO 2000: NEXT T 

320 HOME : PRINT M$ 

338 HTAB 1: VTAB 20 

349 PRINT "D KEY=ARROW DOWN" SPC( 6) 

358 PRINT "U KEY=ARROW UP" 

36@ PRINT “SPACE BAR=FIRE ARROW" SPC( 2) 

370 PRINT "RETURN KEY=QUIT" 

386 TV = INT (16 * RND (1)) + 3 

390 HTAB 40: VTAB TV 

400 PRINT "*"; 

419 HTAB 1: VTAB 12: PRINT ">"; 

420 K = PEEK ( ~- 16384): IF K < 128 THEN 429 
430 POKE ~ 16368,8 

449 CH = PEEK (36) + 1:CV = PEEK (37) +1 


" + CHRS (13) + BS + CS + BS 
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456 
468 
4798 
486 
499 
588 
519 
526 
536 
546 
556 
560 
578 
588 
596 
680 
618 
628 
638 
648 
658 
660 
670 
688 
698 
768 
718 
728 
738 
746 
758 
760 
778 
788 
798 
898 
818 
828 
838 
848 
858 
866 
878 
886 
890 


IF K = 213 AND CV > 3 THEN CV = CV — 1: GOTO 5898 
IF K = 196 AND CV < 18 THEN CV = CV + 1: GOTO 5908 
IF K = 16@ THEN 538 

IF K = 141 THEN HOME : END 

GOTO 429 

HTAB 1: PRINT CHRS$ (32); 


HTAB 1: VTAB CV: PRINT ">"; 
GOTO 429 

FOR CH = 1 TO 39 

HTAB CH: VTAB CV 

PRINT CHR$ (32)">"; 

IF CH < 1@ THEN G = PEEK ( — 16336) 

NEXT CH 

HTAB 1: VTAB 26: CALL - 958 

IF CV = TV THEN 660 

HTAB 1: VTAB 21 

INVERSE : PRINT "HOW COULD YOU MISS THAT TARGET??": 
PRINT 

PRINT “THAT'S TERRIBLE." 

FOR T = 1 TO 2000: NEXT T 

GOTO 328 

CALL - 198 

HTAB 1: VTAB 21 

FLASH : PRINT "YOU GOT THE THING!": NORMAL 

PRINT : PRINT “NO BIG DEAL -- BUT YOU DID IT RIGHT," 
PRINT “ANYHOW. "; 

GOTO 646 

HTAB 1: VTAB 20: PRINT “THIS THING IS YOUR "FES$"." 
CALL - 958 

FOR N = 1 TO 4 

FOR CV = 3 TO 17 

FOR T = 1 TO 10: NEXT T 

HTAB CH: VTAB CV: PRINT CHR$ (32) 

HTAB CH: PRINT F$; 

NEXT CV 

FOR CV = 17 TO 3 STEP - 1 

FOR T = 1 TO 10: NEXT T 

HTAB CH: VTAB CV + 1: PRINT CHR$ (32); 

HTAB CH: VTAB CV: PRINT F$; 

NEXT CV 

NEXT N 

HTAB 1: VTAB 22: PRINT “UNDERSTAND (Y/N)?"; 

GET K$: IF K$ = "N* THEN 728 

IF K$ < > "Y" THEN 870 

RETURN 


NORMAL 
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Program 62 ARROW SHOOT I 


He shot a little arrow into the sky, 
The thing came down and got ’im in the eye. 
The bad news, though, came from his physician, 


Sorry, kid; no more stereoscopic vision. 
—From Modern American Poetry and Conundrums 


10 REM ** ARROW SHOOT #2 ** 

20 REM 

30 FOR N = 1 TO 39:B$ = BS + "=": NEXT N 

48 FOR N = 1 TO 17:C$ = C$ + CHRS$ (13): NEXT N 

5@ M$ = "ARROW SHOOT #2" + CHRS (13) + BS + CS + BS 
60 TEXT : HOME 

70 VTAB 12: PRINT TAB( 13)"ARROW SHOOT #2" 

88 HTAB 5: PRINT "A TRICKY GAME FOR SIMPLE MINDS" 
99 FOR T = 1 TO 2000: NEXT T 

108 VTAB 23 


116 FOR P = 1 TO 15 
120 FOR T = 1 TO 50: NEXT T 
13@ PRINT : NEXT P 


148 HOME : PRINT M$ 

158 HTAB 1: VTAB 20 

16@ PRINT "D KEY=ARROW DOWN" SPC( 6) 

17@ PRINT "“U KEY=ARROW UP" 

180 PRINT "SPACE BAR=FIRE ARROW" SPC( 2) 
198 PRINT “RETURN KEY=QUIT" 


200 TH = 39:TV = 12:DF = @ 
210 AH = 1l:AV = INT (16 * RND (1l)) + 3 
220 TI = 1:SF = @ 


238 GOSUB 488 

240 GOSUB 348 

258 IF SF = 1 THEN 318 

268 K = PEEK ( ~ 16384): POKE —- 16368,@ 


270 IF K = 213 OR K = 196 THEN GOSUB 4898 
28@ IF K = 141 THEN HOME : END 
296 IF K = 16@ THEN SF = 1 


308 GOTO 320 

318 GOSUB 549 

320 IF DF = 1 THEN 140 

338 GOTO 240 

349 TD = TD + l: IF TD < 5 THEN 479 
350 TD = @ 

360 IF TV < 17 AND TV > 3 THEN 380 

370 TI = TI * ( - 1) 

380 HTAB TH: VTAB TV: PRINT CHR$ (32) 
398 HTAB TH: PRINT CHR$ (32); 

400 TV = TV + TI 

419 IF TI > ® THEN 459 

420 HTAB TH: VTAB TV + 1: PRINT CHRS$ (32); 
430 HTAB TH: VTAB TV: PRINT "*"; 

449 GOTO 478 
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458 
460 
470 
489 
490 
588 
518 
520 
538 
540 
558 
568 
570 
588 
598 
688 
616 
620 
638 
648 
658 
660 
678 
688 


HTAB TH: VTAB TV: PRINT CHR$ (32) 

HTAB TH: PRINT "**; 

RETURN 

HTAB AH: VTAB AV: PRINT CHRS$ (32) 

IF K = 213 AND AV > 3 THEN AV = AV - 1: GOTO 5198 


IF K = 196 AND AV < 18 THEN AV = AV + 1: GOTO 5198 


HTAB AH: VTAB AV: PRINT CHRS$ (32); 
HTAB AH: VTAB AV: PRINT ">"; 
RETURN 
IF AH = 1 THEN 568 
IF AH > 39 THEN 618 
HTAB AH: VTAB AV 
IF AH < 10 THEN G = PEEK ( - 16336) 
PRINT CHRS (32);">"; 
AH = AH + 1 
RETURN 
HTAB 1: VTAB 20: CALL —- 958 


IF AV = TV AND ABS (AH ~ TH) < 2 THEN 648 
PRINT "YOU MISSED IT.": GOTO 668 

CALL ~- 198: PRINT “YOU GOT THE LITTLE SUCKER.* 
PRINT : PRINT "NICE SHOOTING."; 

FOR T = 1 TO 2608: NEXT T 

POKE —- 16368,90 


DF = 1: RETURN 
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Program 63 ARROW SHOOT Ill 


OK. So you shoot an arrow at the target. It goes half way. Right. Then it goes half the rest 
of the way. Right? Then it goes half the rest of the way again. Right? It never gets there. 


Right? 
—Zeno (paraphrased) 
1@ REM ** ARROW SHOOT #3 ** 
20 REM 
3@ FOR N = 1 TO 39:BS = BS + "="; NEXT N 
4@ FOR N = 1 TO 17:C$ = C$ + CHRS$ (13): NEXT N 


5@ MS = "ARROW SHOOT #3" + CHRS (13) + BS + CS + B$ 


68 

76 

80 

98 

188 
118 
128 
1398 
148 
156 
160 
176 
1896 
196 
200 
218 
226 
238 
240 
258 
260 
2708 
280 
290 
308 
316 
326 
336 
340 
350 
360 
378 
386 
390 
408 
41@ 
420 
430 
448 
450 
466 
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TEXT : HOME 

VTAB 12: PRINT TAB( 13)"ARROW SHOOT #3" 

HTAB 4: PRINT "A LITTLE GAME FOR MUDDLED MINDS" 
FOR T = 1 TO 20600: NEXT T 


VTAB 23 

FOR P = 1 TO 15 

FOR T = 1 TO 5@: NEXT T 
PRINT : NEXT P 


HOME : PRINT M$ 

HTAB 1: VTAB 20 

PRINT "D KEY=ARROW DOWN" SPC( 6) 
PRINT "U KEY=ARROW UP" 

PRINT "SPACE BAR=FIRE ARROW" SPC( 2) 
PRINT "RETURN KEY=QUIT" 


TH = 39:TV = 12:DF = @ 
AH = 1:AV = INT (16 * RND (1)) + 3 
TI = 1:SF = @ 
DI = - 1:DH = 36:DV = 12 
GOSUB 586 
GOSUB 3680 
GOSUB 7690 
IF SF = 1 THEN 330 
K = PEEK ( - 16384): POKE —- 16368,9 
IF K = 213 OR K = 196 THEN GOSUB 589 
IF K = 141 THEN HOME : END 
IF K = 168 THEN SF = 1 
GOTO 346 
GOSUB 5698 
IF DF = 1 THEN 148 
GOTO 258 
TD = TD + 1: IF TD < 2 THEN 498 
TD = @ 


IF TV < 17 AND TV > 3 THEN 408 
TI = TI * ( - 1) 
HTAB TH: VTAB TV: PRINT CHRS$ (32) 
HTAB TH: PRINT CHRS$ (32); 
TV = TV + TI 
IF TI > ®@ THEN 472 
HTAB TH: VTAB TV + 1: PRINT CHR$ (32); 
HTAB TH: VTAB TV: PRINT "*"; 
GOTO 498 


478 
480 
496 
586 
518 
528 
536 
548 
558 
568 
576 
588 
598 
688 
618 
6298 
636 
648 
658 
668 
676 
686 
698 
768 
718 
7208 
738 
748 
758 
768 
7798 
788 
796 
886 
818 
820 
838 
8408 
8598 
860 
878 


HTAB TH: VTAB TV: PRINT CHRS$ (32) 

HTAB TH: PRINT “#"; 

RETURN 

HTAB AH: VTAB AV: PRINT CHRS$ (32) 

IF K = 213 AND AV > 3 THEN AV = AV — 1: GOTO 538 
IF K = 196 AND AV < 18 THEN AV = AV + 1: GOTO 538 
HTAB AH: VTAB AV: PRINT CHRS$ (32); 

HTAB AH: VTAB AV: PRINT ">"; 

RETURN 

IF AH < DH - 1 THEN 596 

IF AV = DV AND ABS (AH — DH) < 2 THEN 646 

IF AH > 39 THEN 649 

HTAB AH: VTAB AV 

IF AH < 16 THEN G = PEEK ( — 16336) 

PRINT CHRS$ (32) ;">"; 


AH = AH + 1 


RETURN 
HTAB 1: VTAB 28: CALL —- 958 


IF AV = DV AND ABS (AH — DH) < 2 THEN 716 
IF AV = TV AND ABS (AH —- TH) < 2 THEN 689 
PRINT "YOU MISSED IT.": GOTO 738 


CALL - 198: PRINT “YOU GOT THE LITTLE SUCKER." 
PRINT : PRINT "NICE SHOOTING."; 

GOTO 738 

PRINT “YOU SHOT ANOTHER HUNTER!" 

PRINT “REPORT IMMEDIATELY TO THE LOCAL SHERIFF." 
FOR T = 1 TO 2500: NEXT T 

POKE - 16368,8 
DF = 1: RETURN 

IF DV < 17 AND DV > 3 THEN 780 
DI = DI * ( - 1) 

HTAB DH: VTAB DV: PRINT CHRS$ (32) 

HTAB DH: PRINT CHRS (32); 
DV = DV + DI 

IF DI > @ THEN 859 

HTAB DH: VTAB DV + 1: PRINT CHRS (32); 

HTAB DH: VTAB DV: PRINT "!"; 

GOTO 87¢ 

HTAB DH: VTAB DV: PRINT CHR$ (32) 

HTAB DH: PRINT "1"; 

RETURN 
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Program 64 ARROW SHOOT IV 


There’s a lollipop born every minute. 


10 

20 

36 

46 

50 

60 

70 

80 

98 

168 
116 
1206 
130 
148 
1590 
1690 
178 
180 
1990 
288 
210 
228 
238 
240 
258 
268 
270 
288 
298 
380 
318 
320 
338 
348 
358 
368 
378 
388 
398 
400 
410 
420 
430 
440 
458 
460 
470 
488 
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—P.T. Barnum’s Uncle Ed 


REM ** ARROW SHOOT #4 ** 
REM 
FOR N = 1 TO 39:B$ = B$ + "=": NEXT N 
FOR N = 1 TO 17:C$ = C$ + CHRS (13): NEXT N 
MS = "ARROW SHOOT #4" + CHRS (13) + BS + C$ + BS 
TEXT : HOME 
VTAB 12: PRINT TAB( 13)"ARROW SHOOT #4" 
HTAB 5: PRINT "A TRICKY GAME FOR SIMPLE MINDS" 
FOR T = 1 TO 2000: NEXT T 
VTAB 23 
FOR P = 1 TO 15 
FOR T = 1 TO 50: NEXT T 
PRINT : NEXT P 
HOME : PRINT M$ 
HTAB 1: VTAB 28 
PRINT "D KEY=ARROW DOWN" SPC( 6) 
PRINT "U KEY=ARROW UP* 
PRINT "SPACE BAR=FIRE ARROW" SPC( 2) 
PRINT "RETURN KEY=QUIT" 


TH = 39:TV = 12:DF = @ 

AH = 1:AV = INT (16 * RND (1)) + 3 
TI = 1:SF = 8 

GOSUB 489 

GOSUB 349 


IF SF = 1 THEN 318 
K = PEEK ( — 16384): POKE - 16368,@ 
IF K 213 OR K = 196 THEN GOSUB 488 


IF K = 141 THEN HOME : END 

IF K = 160 THEN SF = 1 

GOTO 328 

GOSUB 540 

IF DF = 1 THEN 140 

GOTO 246 
TD = TD + 1: IF TD < 5 THEN 478 
TD = @ 


IF TV < 17 AND TV > 3 THEN 380 
TI = TI * ( - 1) 

HTAB TH: VTAB TV: PRINT CHRS (32) 
HTAB TH: PRINT CHR$ (32); 
TV = TV + TI 

IF TI > @ THEN 456 

HTAB TH: VTAB TV + 1: PRINT CHRS (32); 
HTAB TH: VTAB TV: PRINT "#"; 

GOTO 479 

HTAB TH: VTAB TV: PRINT CHR$ (32) 
HTAB TH: PRINT "*"; 

RETURN 

HTAB AH: VTAB AV: PRINT CHRS (32) 


490 
588 
518 
528 
538 
546 
558 
568 
578 
5808 
598 
686 
618 
626 
638 
648 
658 
668 
678 
688 
6990 
780 
718 
7208 
730 
746 
756 


IF K = 213 AND AV > 3 THEN AV = AV - 1: GOTO 510 
IF K 196 AND AV < 18 THEN AV = AV + 1: GOTO 516 
HTAB AH: VTAB AV: PRINT CHRS (32); 

HTAB AH: VTAB AV: PRINT ">"; 

RETURN 

IF AH = 1 THEN 560 

IF AH > 39 THEN 616 

HTAB AH: VTAB AV 

IF AH < 18 THEN G = PEEK ( ~- 16336) 

PRINT CHRS (32) ;">"; 
AH = AH + 1 

RETURN 

HTAB 1: VTAB 26: CALL -—- 958 

IF AV = TV AND ABS (AH — TH) < 2 THEN 676 
PRINT "YOU MISSED IT." 

FOR T = 1 TO 2000: NEXT T 

POKE —- 16368,9 
DF = 1: RETURN 

CALL - 198 

FOR AH = AH ~— 1 TO 1 STEP ~ 1 

VTAB AV: HTAB AH 

PRINT "<" + CHRS$ (32); 

NEXT AH 

HTAB 1: VTAB 26: CALL - 958 

FOR N = 1 TO 4: CALL —- 198: NEXT N 

PRINT “OUCH! *&$$#@S$" 

GOTO 648 
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Program 65 GENETIC EXPERIMENTS 


The many slight differences which appear in the offspring from the same parents, or 

which it may be presumed have thus arisen, from being observed in the individuals of the 

same species inhabiting the same confined locality, may be called individual differences. 
—Charles Darwin in The Origin of Species 


16 REM ** GENETIC EXPERIMENTS ** 

20 REM 

30 FOR K = 1 TO 10:M$ = M$ + CHR$ (32): NEXT K 

48 M$ = M$ + "GENETIC EXPERIMENTS" + CHR$ (13) 

50 FOR K = 1 TO 40:M$ = MS + "*"; NEXT K 

6@ TEXT : HOME : PRINT M$ 

70 PRINT "THIS PROGRAM OFFERS YOU A CHANCE TO" 

80 PRINT "CONDUCT SOME AWARD-WINNING EXPERIMENTS" 
98 PRINT “IN GENETIC CROSS~BREEDING." 

108 VTAB 21: PRINT “STRIKE ANY KEY TO BEGIN ..."; 
110 GET KS$ 

120 HOME : PRINT M$ 

138 PRINT “ENTER A SPECIES (MALE) :" 

140 INPUT "";LMS 

150 IF LEN (LMS) < 1 THEN 149 

168 PRINT : PRINT "ENTER A SPECIES (FEMALE) :" 

170 INPUT "";FS 

188 IF LEN (F$) < 1 THEN 179 

196 WS = LEFTS (LM$,2) + RIGHTS (F$,3) 

200 PRINT : PRINT “CROSS THEM THAT WAY, AND YOU GET:*" 
216 INVERSE : PRINT WS: NORMAL 

220 PRINT : PRINT : PRINT "WOULD YOU LIKE TO SWITCH THE MALE AND" 
230 PRINT "FEMALE SPECIES (Y¥/N)?"; 

240 GET K$: IF K$ = "N" THEN 310 

250 IF K$ = "Y" THEN 276 

268 GOTO 249 

270 WS = LEFTS (FS$,3) + RIGHTS (LM$,2) 

280 PRINT : PRINT 

299 PRINT "CROSS THEM THAT WAY, AND YOU GET:" 

300 INVERSE : PRINT WS: NORMAL 

31@ HTAB 1: VTAB 21: PRINT "WOULD YOU LIKE TO TRY A NEW" 
320 PRINT "EXPERIMENT (Y/N) 2"; 

330 GET K$: IF K$ < > "N" AND K$ < > "Y" THEN 316 
340 IF K$ = "Y" THEN 120 

350 END 
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Program 66 GOPHER HUNT 


Go-go Gophers 
—Sign on a pest contro! truck in Kokomo 
—Sign on a frat house in Duluth 


19 REM ** GOPHER HUNT ** 
26 REM 

3@ FOR K = 1 TO 14:M$ = M$ + CHR$ (32): NEXT K 

4g MS = M$ + "GOPHER HUNT" + CHRS$ (13) 

5@ FOR K = 1 TO 4@:M$ = M$ + CHRS$ (42) 

66 NEXT K 

78 TEXT : HOME : PRINT : PRINT MS 

80 PRINT "THIS PROGRAM GIVES YOU A CHANCE TO" 

99 PRINT "PRACTICE CATCHING GOPHERS IN A LAWN." 

198 PRINT "THE PESKY LITTLE CRITTERS POP UP 4ERE" 

110 PRINT “AND THERE, AND YOU NEVER KNOW WHERE." 

120 PRINT : PRINT "YOU CAN CHASE THE GOPHERS BY WORKING" 
130 PRINT "THE U, D, L AND R KEYS (UP, DOWN, LEFT" 

146 PRINT "AND RIGHT)." 

15@ PRINT : PRINT "THERE'S A CATCH TO CATCHING A GOPHER, 
166 PRINT “THOUGH: EVERY TIME YOU CATCH ONE" 

170 PRINT “OF THEM, THEY GIVE YOU FEWER MOVES" 

189 PRINT "FOR CATCHING THE NEXT." 

199 HTAB 1: VTAB 29 

208 PRINT “STRIKE ANY KEY TO BEGIN ..."; 

219 GET K$ 

228 GR : COLOR= 12 

230 FOR N = @ TO 39: VLIN 6,39 AT N: NEXT N 

249 COLOR= 15 

250 LEV = 56:SC = @ 

260 R = 20:C = 20: PLOT C,R 

270 GOSUB 519 

288 GOSUB 430 


298 COLOR= 12: PLOT C,R 

38@ COLOR= 15 

316 IF K = 204 THEN C=C - 1 
320 IF K = 2189 THEN C = C + 1 
33@ IF K = 196 THEN R=R+#+1 
346 IF K = 213 THEN R=R- 1 
350 IF C > 38 THEN C = 38 

360 IF C < 1 THENC =1 

378 IF R > 38 THEN R = 38 

388 IF R < 1 THEN R = 1 


396 IF GX = C AND GY = R THEN GOSUB 519 

498 COUNT = COUNT - 1 

416 IF COUNT = @ THEN 589 

426 COLOR= 15: PLOT C,R: GOTO 289 

430 HTAB l: VTAB 22 

440 PRINT “U=UP" SPC( 6)"D=DOWN" SPC( 6)"SCORE="SC - 1 

450 PRINT "R=RIGHT* SPC( 3)"L=LEFT" SPC( 6)"MOVES TO GO="COUNT" " 
460 XX = PEEK ( - 16336) 

470 K = PEEK ( — 16384) 
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480 
4908 
586 
518 
526 
536 
5406 
558 
568 
578 
586 
598 
606 
6186 
628 
636 
640 
650 
660 
670 
680 
698 
768 
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IF K < 128 THEN 478 
POKE —- 16368,8 
RETURN 
GX = INT ( RND (1) * 35 + 1) 
GY = INT ( RND (1) * 35 + 1) 
CALL - 198 
sc = sc +1 
COLOR= 9: PLOT GX,GY 
COUNT = LEV:LEV = LEV - 3 


RETURN 
TEXT : HOME : VTAB 3: PRINT M$ 
sc = sc - 1 


VTAB 6: PRINT "YOU HAVE CAPTURED "SC" GOPHER(S)." 
PRINT 
PRINT "THE BEST SERIES SCORE IS "TS" GOPHER(S).*" 


IF TS < SC THEN PRINT TAB( 5)"(YOU'VE DONE BETTER) * 
IF TS > SC THEN PRINT TAB( 5)"(YOU'VE DONE WORSE)" 

IF SC > TS THEN TS = SC 

PRINT : PRINT "WOULD YOU LIKE TO PLAY AGAIN (Y/N)? "; 
GET K$ 

IF K$ *Y" THEN 228 


IF K$ = "N" THEN HOME : END 
GOTO 678 


Program 67 PARACHUTE JUMPER 


If at first you don’t succeed, try and try again. 


10 

26 

36 

40 

58 

60 

76 

80 

90 

108 
118 
128 
138 
146 
158 
168 
1786 
188 
196 
2698 
2196 
220 
2308 
2408 
2508 
2608 
278 
2898 
2998 
388 
318 
320 
338 
346 
356 
368 
3708 
388 
398 
460 
419 
420 
438 
448 
450 
460 
470 
488 


—Someone who has no sky-diving friends 


REM ** PARACHUTE JUMPER ** 
REM 


MS =" 


FOR K = 1 TO 16:GM$ = GM$ + " "; NEXT K 


GM$ = CHR$ (13) + GMS + "* GERONIMO *" 
FU = 6 


FOR K = 1 TO 12:M$ = MS +" ": NEXT K 


MS = MS + “PARACHUTE JUMPER" + CHRS (13) 


FOR K = 1 TO 46:M$ = MS + "*": NEXT K 
TEXT : HOME : PRINT M$ 

PRINT "YOU ARE AN ACE SKYDIVER. YOUR MISSION" 

PRINT "IS TO DROP INTO A CITY TO SAVE SOME" 

PRINT "STOLEN PLUTONIUM.": PRINT 

PRINT “IT IS UP TO YOU TO SIGNAL THE PILOT* 

PRINT "THAT YOU ARE READY TO JUMP BY STRIKING" 
PRINT "THE SPACE BAR.": PRINT 

PRINT "IF YOU FAIL TO JUMP AT THE CORRECT" 

PRINT "MOMENT, YOU WILL SMASH INTO A BUILDING." 
PRINT "OR IF YOU FAIL TO JUMP AT ALL, THE" 

PRINT "PLANE WILL RUN OUT OF FUEL, AND YOU" 

PRINT "WILL ALL PERISH." 

VTAB 21: PRINT "STRIKE THE SPACE BAR TO BEGIN ..."; 


GET KS$ 
BD = 1 

HOME : GR 
BD = BD + 1s: IF BD = 4 THEN BD = 1 

IF BD = 1 THEN SK = 8 

IF BD = 2 THEN SK = 7 

IF BD = 3 THEN SK = 9 

COLOR= SK 

FOR Y = 6 TO 39: HLIN 8,39 AT Y: NEXT Y 
HTAB 1 


PRINT “ *** HIT THE SPACE BAR TO JUMP *** ® 
DH = @:NH = @ 
FL = 6 

COLOR= 117 

FOR P = 1 TO 39 

H = INT ( RND (1) * 26 + 20) 
VLIN H,39 AT P 

NEXT P 

COLOR= SK 

VLIN 9,39 AT 18 

COLOR= 2: PLOT 18,39 

COLOR= 14:V = 16 

FOR H = @ TO 39 

GOSUB 860 

COLOR= 4: PLOT H,V 

IF FL < > 1 THEN 529 
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496 
5808 
518 
528 
536 
548 
558 
568 
578 
588 
5908 
600 
616 
6208 
638 
648 
658 
668 
678 
688 
6908 
708 
710 
720 
730 
748 
759 
768 
778 
788 
798 
8008 
810 
820 
8308 
8408 
858 
868 
878 
880 
890 
900 
910 
9298 
938 
946 
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IF DH < 10 THEN COLOR= 14: GOTO 518 
COLOR= 13 

PLOT NH,V + DH 

FOR T = 1 TO 200: NEXT T 

COLOR= SK: PLOT H,V 

PLOT NH,V + DH 


KB = PEEK ( ~ 16384): POKE - 16368,90 
IF FL = 1 THEN 5890 
IF KB = 168 THEN FL = 1:R = H: GOSUB 908 
IF FL = 1 THEN DH = H - R 
IF DH < 10 THEN NH = H 


CLK = PEEK ( - 16336) 
U = SCRN( NH,V + DH + 1) 

IF U = 2 OR U = 1 THEN 770 

IF U = 5 THEN 720 

NEXT H 
H = 1 
FU = FU + 1 

IF FU < 2 THEN 458 

IF FU < > 2 THEN 716 

HOME : PRINT "** YOU'RE LOW ON FUEL **" 
GOTO 458 

IF FU = 3 THEN FL = 1: GOSUB 980: GOTO 45¢ 
TEXT : HOME : PRINT MS 

CALL ( ~ 198): CALL ( - 198) 

PRINT : PRINT "*** SPLAT *##" 

PRINT : PRINT "YOU JUST HIT A BUILDING" 
GOTO 818 

TEXT : HOME : PRINT M$ 

FOR T = 1 TO 6: CALL ( - 198): NEXT T 
PRINT "** CONGRATULATIONS, ACE ***" 
PRINT : PRINT "YOU SAVED THE PLUTONIUM" 
VTAB 21 


PRINT “WOULD YOU LIKE ANOTHER MISSION (Y/N)? "; 


GET K$: IF K$ = "Y" THEN 258 

IF K$ = “N" THEN HOME : END 

GOTO 830 

COLOR= 2 

IF H / 2 = INT (H / 2) THEN COLOR= 1 
PLOT 18,39 

RETURN 


HOME : PRINT GM$: FOR S = 1 TO 3: CALL ( — 198): 


FU = @ 

R = H:DH = H- R 
IF DH < 1@ THEN NH = H 
RETURN 


NEXT S 


Program 68 LIFEGUARD 


Tall lifeguards don’t have to know how to swim. 
~—Lazarus Long (paraphrased) 


16 REM ** LIFEGUARD ** 

20 REM 

30 M$ =" 

4@ FOR K = 1 TO 15:M$ = M$ + CHRS$ (32): NEXT K 

50 MS = M$ + "LIFEGUARD" + CHRS (13) 

60 FOR K = 1 TO 4@:M$ = MS + "*": NEXT K 

78 HOME : PRINT M$ 

88 PRINT “YOU ARE A LIFEGUARD AT THE OL' SWIMMING*® 
99 PRINT "HOLE. A SWIMMER IS DROWNING, AND YOU" 
186 PRINT "ARE ABOUT TO GO TO THE RESCUE." 

110 PRINT : PRINT "THE ONLY PROBLEM IS THAT THE SWIMMER IS" 
126 PRINT “UNDERWATER MOST OF THE TIME. YOU HAVE" 
138 PRINT “TO SWIM IN ONE DIRECTION OR ANOTHER," 
14@ PRINT "AND LISTEN FOR THE SCREAMS FOR HELP." 
15@ PRINT “THE GREATER THE NUMBER OF SCREAMS, THE" 
168 PRINT “CLOSER YOU ARE (AT THE MOMENT) .*" 

176 VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
188 GET KS 

196 HOME : PRINT MS: PRINT 

200 PRINT “WHERE IS THE SWIMMER?": PRINT 

218 PRINT "(EAST,WEST,NORTH,SOUTH,ROCK) :"; 

226 INPUT K$ 

238 K$ = LEFTS (KS$,1) 

248 P = INT ( RND (1) * 5 + 1) 

258 IF K$ < > *"N*" THEN 368 


268 IF P = 1 THEN 588 

276 IF P = 2 THEN L = 1: GOTO 598 
288 IF P < 4 THEN L = 2: GOTO 598 
298 L = 3: GOTO 598 

3986 IF K$ < > "S" THEN 3598 

316 IF P = 2 THEN 5890 

326 IF P = 1 THEN L = 1: GOTO 599 
339 IF P = 3 THEN L = 2: GOTO 599 
348 L = 3: GOTO 598 

358 IF K$ < > "E" THEN 488 

366 IF P = 3 THEN 580 

370 IF P = 2 THEN L = 1: GOTO 5998 
386 IF P = 1 THEN L = 2: GOTO 5998 
398 L = 3: GOTO 598 

40@ IF K$ < > "W" THEN 459 

410 IF P = 4 THEN 588 

420 IF P = 5 THEN L = 1: GOTO 598 
430 IF P > 3 THEN L = 2: GOTO 598 
446 L = 3: GOTO 599 

45@ IF K$ < > "R™ THEN 216 

466 IF P = 5 THEN 580 

470 IF P = 4 THEN L = 1: GOTO 598 
486 IF P = 3 THEN L = 2: GOTO 598 
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490 
500 
518 
528 
530 
540 
550 
568 
578 
5808 
5908 
680 
610 
620 
6308 
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L = 3: GOTO 598 

HOME ; PRINT MS 

FOR K = 1 TO 5: CALL ( - 198): NEXT K 

PRINT : PRINT "GOOD JOB. YOU JUST SAVED THE" 
PRINT "SWIMMER'S LIFE." 

VTAB 21: PRINT "ARE YOU STILL ON DUTY (Y/N)?"; 
GET KS 

IF K$ = "Y" THEN 1990 

IF K$ < > "N" THEN 550 

HOME : END 

HOME : PRINT M$: PRINT 

FOR J = 1T05-L 

PRINT " HELP": PRINT : CALL ( ~ 198) 

NEXT J 

GOTO 206 


Program 69 COMPUTERIZED HOME STATUS 


The more we have to do with computers, the more we can know about matters of lesser 
importance. 
— Anonymous (by choice) 


16 REM ** HOME STATUS REPORTS ** 

26 REM 

38 DIM H$(1)l) 

4@ M$ = "COMPUTERIZED HOME STATUS REPORT" + CHR$ (13) 
5@ FOR N = 1 TO 40:M$ = M$ + "-": NEXT N 
6@ FOR X = 1 TO 3: FOR N= 105 
78 ON X GOTO 86,980,100 

88 READ AS(N): GOTO 110 

98 READ BS(N): GOTO 119 

196 READ C$(N) 

116 NEXT N,X 

128 FOR X = 1 TO 4: FOR N = 1 TO 2 
138 ON X GOTO 140,158,168,178 
14@ READ D$(N): GOTO 180 

15@ READ ES(N): GOTO 189 

168 READ FS(N): GOTO 186 

17@ READ G$(N): GOTO 18¢ 

18@ NEXT N,X 

199 FOR N =1 TO 11 

206 READ HS$(N) 

219 HS(N) = "TOO " + HS(N) 

228 NEXT N 

238 DL = 4900 

248 FOR CY = 1705 

258 GOSUB 638 

268 DL = DL - 106 

278 FOR T = 1 TO DL 

286 NEXT T,CY 

298 GOSUB 976 

36@ FOR CY = 1 TO 16 

31@ GOSUB 638: GOSUB 558 

326 DL = DL - 200 

336 FOR T = 1 TO DL 

340 NEXT T,CY 

358 GOSUB 976 

360 FOR CY = 1 T0 5 

378 FOR X = 1 TO 2 

388 D$(X) = H$( INT (11 * RND (1)) + 1) 
396 NEXT X 

488 GOSUB 630: GOSUB 558 

418 DL = DL ~ 308 

420 FOR T = 1 TO DL 

430 NEXT T,CY 

449 DL = DL - 500 

45@ GOSUB 978 

460 BX = BX + 1 

470 IF BX < 2 THEN 240 
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480 
498 
560 
516 
520 
536 
540 
550 
566 
570 
586 
598 
680 
618 
628 
6308 
648 
656 
668 
678 
688 
698 
766 


728 
730 
740 
758 
768 
776 
7808 


806 
816 
820 
838 
848 
856 
866 
876 
88e 
890 
906 
9198 
926 
930 
946 
9508 
966 
978 
986 
990 
1000 
1010 
1620 
1838 
1840 
1858 
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FOR BX = 1 TO 4 

CALL - 198: GOSUB 979 

NEXT BX 

FLASH : PRINT "ARRGH! I'M DEAD" 
NORMAL : END 

GOSUB 976 

GOTO 246 

FOR N = 1 TO 5 

PRINT C$(N); 
X = INT (2 * RND (1)) +1 
Y = INT (11 * RND (1)) +1 
HTAB 17: PRINT E$(X); 

HTAB 28: PRINT H$(Y) 


NEXT N 
RETURN 

TEXT : HOME : PRINT MS 

VTAB 6 

FOR N = 1 TO 5 
X = INT (2 * RND (l)) +1 

Y = 2: IF X = 2 THEN Y = INT (2 * RND (1)) +1 
PRINT AS(N); 

NORMAL 


IF X = 1 THEN INVERSE 
HTAB 17: PRINT D$(X); 

NORMAL 

IF X = 2 AND Y = 2 THEN FLASH 
HTAB 28: PRINT E$(Y) 


NORMAL 
NEXT N 
FOR N = 1 TO 5 
X = INT (2 * RND (1)) #1 
Y = 2: IF X = 1 THEN Y = INT (2 * RND (1)) + 1 
PRINT BS(N); 
NORMAL 


IF X = 1 THEN INVERSE 
HTAB 17: PRINT FS$(X); 

NORMAL 

IF X = 1 AND Y = 2 THEN CALL - 198: FLASH 

HTAB 28: PRINT GS$(Y) 

NORMAL 

NEXT N 

RETURN 

DATA FRONT DOOR,BACK DOOR,BEDROOM WINDOW,KITCHEN WINDOW 
DATA GARAGE DOOR,DISHWASHER,CLOTHES WASHER,CLOTHES DRYER 
DATA FURNACE,AIR CONDITIONER, TOILET, TELEPHONE 

DATA KITCHEN SINK,CHRISTMAS TREE,FAMILY DOG 

DATA OPEN,CLOSED, LOCKED, UNLOCKED,ON,OFF,RUNNING 

DATA NOT RUNNING,OK,HOT,COLD,HIGH,LOW,WET, DRY 

DATA QUIET,NOISY,SHALLOW, DEEP 


POKE —- 16304,0: POKE - 16302,0 
FOR F = 1 TO 10 
POKE - 16297,6 
FOR G = @ TO 18 
X = PEEK ( - 16336) 
NEXT G 
POKE —- 16298,6 
NEXT F 


TEXT : RETURN 


Program 70 SCISSORS-PAPER-STONE 


Cut! Cover! Break! We must protect our children from engaging in games that even 
simulate such violence! 
—Editorial in a newspaper dated January 4, 1823 


18 REM ** PAPER-SCISSORS-STONE ** 

28 REM 

30 FOR K = 1 TO 10:M$ = M$ + CHR$ (32): NEXT K 
40 M$ = M$ + "SCISSORS-PAPER~STONE" + CHRS$ (13) 


50 FOR K = 1 TO 40:Y$ = Y$ + **"; NEXT K 

60 M$ = M$ + YS$ 

70 FOR N = 1 TO 3: READ D$:C$(N) = D$: NEXT N 
88 FOR N = 1 TO 4: READ D$:RS$(N) = DS: NEXT N 
989 CC = 8 

190 TEXT : HOME : PRINT MS 


116 PRINT "CHOOSE A MATERIAL (1,2,OR 3):" 
120 PRINT 

136 FOR N = 1 TO 3 

140 PRINT TAB( 5)N"~"C$(N) 

158 NEXT N 

168 VTAB 12 

176 GET K$: IF K$ < "1" OR K$ > "3" THEN 176 
186 PN = VAL (KS) 

199 SN = INT (3 * RND (1)) +1 

266 HTAB 1: VTAB 12 

216 PRINT Y$ 

228 PRINT "YOU PICKED "C$ (PN) 

236 PRINT “THE COMPUTER PICKS "C$(SN) 


249 PRINT : FOR T = 1 TO 1800: NEXT T 

258 ON SN GOTO 260,290,320 

260 IF PN = 1 THEN’ PRINT R$(1): GOTO 378 
270 IF PN = 2 THEN PRINT R$(3);: GOTO 350 
280 IF PN = 3 THEN PRINT R$(2);: GOTO 360 
298 IF PN = 1 THEN’ PRINT R$(3);: GOTO 368 
380 IF PN = 2 THEN’ PRINT R$(1): GOTO 3798 
319 IF PN = 3 THEN PRINT R$(4);: GOTO 350 
320 IF PN = 1 THEN PRINT R$(2);: GOTO 358 
330 IF PN = 2 THEN PRINT R$(4);: GOTO 368 
340 IF PN = 3 THEN PRINT R$(1): GOTO 3796 
358 PRINT " — YOU WIN.":PC = PC + 1: GOTO 378 


360 PRINT * COMPUTER WINS.*:CC = CC + 1 

378 VTAB 21: PRINT “STRIKE THE SPACE BAR TO DO AGAIN" 
388 PRINT "(OR THE X KEY TO END THE GAME) ..."; 

398 GET K$ 

400 IF K$ = "X" THEN 438 

410 IF K$ = CHRS$ (32) THEN 198 

428 GOTO 398 

43@ HOME : PRINT MS: PRINT 

440 PRINT "YOU WON "PC" TIME"; 

450 IF PC <¢< > 1 THEN PRINT "8S"; 

468 PRINT : PRINT “THE COMPUTER WON "CC" TIME"; 

476 IF CC < > 1 THEN PRINT *S" 
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480 END 

498 DATA’ PAPER,SCISSORS,STONE 

506 DATA TIE,PAPER COVERS STONE 

518 DATA SCISSORS CUT PAPER,STONE SMASHES SCISSORS 
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Program 71 HELP-HELP 


Facts require explanation; truth defies it. 


— Anonymous 


User’s Note: It’s up to you to decide whether this seemingly innocent program requires 
explanation or defies it. 


10 
26 
30 
46 
56 
60 
708 
86 
98 
186 
118 
128 
136 
146 
158 
166 
178 


REM ** HELP,HELP ** 
REM 
FOR K = 1 TO 18:M$ = M$ + CHRS (32): NEXT K 
MS = MS + “HELP™ + CHRS$ (13) 
FOR K = 1 TO 406:M$ = M$ + "*": NEXT K 
HOME : PRINT MS 
SPEED= 8g 
FOR K = 1 TO 66 
READ L: PRINT CHR$ (L); 
NEXT K 
SPEED= 255: VTAB 21: END 
DATA 72,69,76,80,44,32,72,69, 76,80, 33,33 
DATA 32,73,39,77,32,65,32,80,82,73,83,79,78 
DATA 69,82,32,73,78,32,65,32,80,73,67 
DATA 84,85,82,69,45,84,85,66,69,32,70,65,67 
DATA 84,79,82,89,46,32,76,69,84,32,77,69 
DATA 32,79,85,84,33 
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Program 72 WUMPUS 


Stand still, you wascle wabbit! 
—Elmer Fudd 


16 REM ** WUMPUS ** 

26 REM 

38 FOR N = 1 TO 17:X$ = X$ + CHRS$ (32): NEXT N 

49 FOR N = 1 TO 40:¥$ = Y$ + “:": NEXT N 

50 MS = X$ + "WUMPUS" + CHRS$ (13) + Y$ 

6@ HOME : PRINT M$ 

7@ PRINT "“WUMPUS IS A HUNTING GAME WHEREBY YOU" 

88 PRINT “ATTEMPT TO CAPTURE A STRANGE SORT OF* 

98 PRINT "BEAST -- NAMELY, A WUMPUS.* 

1@@ PRINT : PRINT "YOU HAVE A HIGH-TECH RANGEFINDER TO* 
118 PRINT "DETERMINE HOW FAR AWAY THE WUMPUS IS." 
126 PRINT "YOU HAVE TO USE YOUR HUNTERS' INSTINCT," 
130 PRINT "HOWEVER, TO RECKON THE DIRECTION." 

14@ PRINT : PRINT *CATCH THE WUMPUS ~- IF YOU CAN," 
150 VTAB 21: PRINT “STRIKE ANY KEY TO BEGIN ..."; 
168 GET K$ 


170 N= @® 

186 WX = INT (100 * RND (1)) - 5@ 

199 WY = INT (100 * RND (1)) ~- 58 

208 PX = @:PY = @ 

218 HOME : PRINT M$: VTAB 4 
226 DI = SQR ((WX - PX) * (WX - PX) + (WY - PY) * (WY — PY)) 
230 DI = INT (DI) 


240 IF DI > 1 THEN 346 

25@ HOME : PRINT M$: VTAB 4 

268 M1$ = "YOU HAVE CAPTURED THE WUMPUS." 

278 FLASH : PRINT M1$ 

28@ FOR XN = 1 TO 4: CALL —- 198: NEXT XN 

298 FOR T = 1 TO 500: NEXT T 

300 NORMAL : HOME : PRINT M$: PRINT M1$ 

310 PRINT : PRINT "YOU DID IT IN “"N®" MOVE"; 

320 IF N < > 1 THEN PRINT "S.* 

338 GOTO 529 

348 PRINT "YOU ARE NOW "DI" MILES FROM THE WUMPUS.”" 
350 PRINT : PRINT "HOW FAR WOULD YOU LIKE TO TRAVEL"; 
368 INPUT TD 

378 TD = INT ( ABS (DT)) 

389 PRINT : PRINT "WHICH DIRECTION (N,S,E,W) 2"; 

398 CH = PEEK (36):CV = PEEK (37) 

408 HTAB l: VTAB 21 

419 PRINT “STRIKE THE X KEY TO GIVE UP* 

429 HTAB CH + l: VTAB CV + 1 

430 GET DS 


440 IF D$ = "N" THEN PY = PY + DI: GOTO 590 
458 IF D$ = "S" THEN PY = PY — DI: GOTO 50@ 
460 IF D$ = "E" THEN PX = PX + DI: GOTO 599 
4760 IF D$ = "W" THEN PX = PX — DI: GOTO 580 
48@ IF D$ = "X" THEN 579 
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498 
508 
518 
5208 
538 
549 
558 
569 
578 


N 


GOTO 420 
=N+1 
GOTO 219 


VTAB 21: PRINT “STRIKE THE SPACE BAR TO PLAY AGAIN 


PRINT "(OR THE X KEY TO END THE PROGRAM)"; 
GET K$ 

IF ASC (K$) = 32 THEN 178 

IF K$ < > "X" THEN 546 

HOME : END 
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Program 73 SUPER WUMPUS 


Eh-h-h. Catch me if you can! 


10 

20 

30 

48 

58 

68 

70 

80 

90 

180 
118 
120 
130 
148 
150 
166 
178 
188 
198 
288 
218 
2206 
230 
246 
258 
268 
2708 
288 
298 
3008 
318 
326 
336 
348 
358 
360 
370 
388 
390 
408 
410 
420 
430 
440 
4508 
460 
478 
480 
490 
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—Bugs Bunny 
REM ** SUPER WUMPUS ** 
REM 
FOR N = 1 TO 14:X$ = X$ + CHRS (32): NEXT N 
FOR N = 1 TO 40:Y$ = Y$ + ":": NEXT N 


MS = X$ + "SUPER WUMPUS" + CHRS$ (13) + Y$ 
HOME : PRINT M$ 
PRINT “WUMPUS IS A HUNTING GAME WHEREBY YOU" 
PRINT “ATTEMPT TO CAPTURE A STRANGE SORT OF" 
PRINT "BEAST -- NAMELY, A WUMPJUS." 
PRINT : PRINT "YOU HAVE A HIGR-TECH RANGEFINDER TO" 
PRINT "DETERMINE HOW FAR AWAY THE WUMPUS IS." 
PRINT "YOU HAVE TO USE YOUR HUNTERS’ INSTINCT," 
PRINT "HOWEVER, TO RECKON THE DIRECTION." 
PRINT "NOTICE -- SUPER WUMPUS IS A LITTLE " 


PRINT “HARDER TO CATCH THAN THE OTHER WUMPUS" 
PRINT "BECAUSE HE MOVES AROUND IN HIS WORLD!" 
PRINT : PRINT "CATCH THE SUPER WUMPUS -- IF YOU CAN." 
VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
GET K$ 
N = 6 
WX = INT (198 * RND (1)) - 50 
WY = INT (108 * RND (1)) - 58 
PX = O:PY = @ 
HOME : PRINT M$: VTAB 4 
DI = SQR ((WX - PX) * (WX - PX) + (WY - PY) * (WY —- PY)) 
DI = INT (DI) 


IF DI > 1 THEN 376 
HOME : PRINT MS: VTAB 4 

M1$ = "YOU HAVE CAPTURED THE WUMPUS." 
FLASH : PRINT M1$ 
FOR NX = 1 TO 4: CALL - 198: NEXT N 
FOR T = 1 TO 500: NEXT T 
NORMAL : HOME : PRINT MS: PRINT M1S 
PRINT : PRINT "YOU DID IT IN "N" MOVE"; 
IF N > 1 THEN’ PRINT "S." 
GOTO 550 
PRINT "YOU ARE NOW "DI" MILES FROM THE WUMPUS." 


PRINT : PRINT "HOW FAR WOULD YOU LIKE TO TRAVEL"; 

INPUT TD 
TD = INT ( ABS (TD)) 

PRINT : PRINT "WHICH DIRECTION (N,S,E,W)?"; 
CH = PEEK (36):CV = PEEK (37) 

HTAB 1: VTAB 21 

PRINT "STRIKE THE X KEY TO GIVE UP" 

HTAB CH + 1: VTAB CV + 1 

GET D$ 

IF D$ = "N" THEN PY = PY + DI: GOTO 536 

IF D$ = "S" THEN PY = PY —- DI: GOTO 530 

IF D$ = "E" THEN PX = PX + DI: GOTO 530 


508 
518 
528 
538 
548 
558 
568 
578 
588 
598 
6008 


IF DS = "W" THEN PX = PX ~- DI: GOTO 538 

IF D$ = "X" THEN 68090 

GOTO 458 
N=2=N+ 1 

GOTO 218 

VTAB 21: PRINT “STRIKE THE SPACE BAR TO PLAY AGAIN" 
PRINT "(OR THE X KEY TO END THE PROGRAM) "; 
GET K$ 

IF ASC (K$) = 32 THEN 288 

I= K$ < > "X" THEN 578 

HOME : END 
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Program 74 CROSS THE RIVER 


There’s more than one way to skin acat, mash a spider, and spit in the river; and you only 
gotta be smart to do two of ’em. 
—From Forgotten Lore of the Mississippi 


1@ REM ** RIVER CROSSING ** 

20 REM 

3@ FOR K = 1 TO 13:M$ = M$ + CHR$ (32) 

4@ M$ = M$ + "RIVER CROSSING" + CHRS$ (13) 

56 FOR K = 1 TO 40:Y$ = Y$ + "#"; NEXT K 

68 M$ = MS + Y$ 

78 FOR N = 1 TO 7: READ DS(N): NEXT N 

88 TEXT : HOME : PRINT M$ 

98 PRINT “CONSIDER THIS PROBLEM IN LOGIC:": PRINT 
100 PRINT "YOU ARE ON THE NORTH BANK OF A RIVER." 
118 PRINT "YOU HAVE A BOAT,WOLF,HEAD OF CABBAGE" 
12@ PRINT "AND A GOAT WITH YOU. WHEN YOU AREN'T" 
13@ PRINT "AROUND, THE GOAT WILL EAT THE CABBAGE" 
14@ PRINT "AND THE WOLF WILL EAT THE GOAT." 

158 PRINT 

160 PRINT “YOUR TASK IS TO USE THE BOAT TO CARRY" 
170 PRINT "THE WOLF,CABBAGE AND GOAT TO THE" 

188 PRINT "SOUTH BANK -- CARRYING JUST ONE (OR" 
198 PRINT "NONE) WITH YOU ON EACH CROSSING." 

20@ PRINT : PRINT "LET ME KNOW IF YOU CAN DO IT IN LESS" 
218 PRINT "THAN 7 CROSSINGS." 

228 VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
230 GET KS 

240 GT = 1:HC = 1:WF = 1:LF = 1:NC = @ 

25@ FBS = D$(1) 


260 FB = 1 

270 HOME : PRINT M$ 

280 IF FB = 1 THEN FB$ = D$(1) 

290 IF FB = 2 THEN FB$ = D$(2) 

300 VTAB 4 

310 PRINT “ITEMS ON THE NORTH BANK:": PRINT 
326 IF WF = 1 THEN PRINT TAB( 5)D$(3) 

330 IF HC = 1 THEN PRINT TAB( 5)D$(4) 

349 IF GT = 1 THEN PRINT TAB( 5)D$(5) 

350 PRINT : PRINT “ITEMS ON THE SOUTH BANK:": PRINT 
360 IF WF = 2 THEN PRINT TAB( 5)D$(3) 

370 IF HC = 2 THEN PRINT TAB( 5)D$(4) 

380 IF GT = 2 THEN PRINT TAB( 5)D$(5) 


399 HTAB 1: VTAB 16: INVERSE 

400 PRINT “YOU ARE ON THE "FBS" BANK." 

410 NORMAL 

420 VTAB 18: PRINT Y$ 

430 ON LF GOTO 449,670,689,699 

449 PRINT "DO YOU WANT TO TAKE THE (G)OAT, (W)OLF," 
450 PRINT "THE (C)ABBAGE, OR GO (A)LONE?"; 

468 GET KS 

470 HTAB 1: VTAB 15: PRINT SPC( 39) 
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480 


NC = NC + 1 


490 IF K$ < > "G" THEN 539 

500 IF GT < > FB THEN 759 

51@ GT = GT + l: IF GT > 2 THEN GT = 1 

528 GOTO 620 

530 IF K$ < > "W" THEN 576 

540 IF WF < > FB THEN 758 

550 WF = WF + 1: IF WF > 2 THEN WF = 1 

560 GOTO 620 

570 IF K$ < > "C" THEN 610 

580 IF HC < > FB THEN 758 

590 HC = HC + 1: IF HC > 2 THEN HC = l 

688 GOTO 620 

616 IF K$ < > "A" THEN 270 

620 FB = FB + l: IF FB > 2 THEN FB = 1 

630 IF HC = 2 AND WF = 2 AND GT = 2 THEN LF = 2 
649 IF GT = WF AND FB < >» GT THEN LF = 3 
650 IF GT = HC AND FB < >» GT THEN LF = 4 
668 GOTO 279 

670 PRINT "YOU DID IT IN "NC" CROSSINGS!": GOTO 700 
688 PRINT D$(6): GOTO 760 

698 PRINT D$(7) 

700 CALL ( - 198): CALL ( = 198) 

710 PRINT : PRINT “WOULD YOU LIKE TO PLAY AGAIN (Y/N)?"; 
720 GET KS: IF K$ = "Y" THEN 249 

730 IF K$ = "N" THEN HOME : END 

748 GOTO 720 

750 HTAB l: VTAB 15: FLASH 

760 PRINT “THAT'S NOT POSSIBLE"; 

776 NORMAL : PRINT SPC( 39 - POS (9)) 
789 GOTO 390 

799 DATA NORTH,SOUTH,WOLF,CABBAGE,GOAT 
808 DATA THE WOLF ATE THE GOAT. 

810 DATA THE GOAT ATE THE CABBAGE. 
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Program 75 FOOTBALL 


Turn out the lights, the party’s over... 


16 
26 
36 
40 
59 
68 
76 
88 


168 
118 
128 
136 
140 
158 
168 
176 
180 
1908 
288 
216 
228 
238 
248 
256 
268 
2708 
286 
298 
368 
318 
326 
3306 
348 
358 
366 
378 
388 
396 
4608 
416 
4268 
438 
440 
458 
468 
470 
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—ABC’s Don Meredith (variation of an older theme) 


REM ** FOOTBALL ** 
REM 
FOR K = 1 TO 16:M$ = M$ + CHRS (32): NEXT K 


MS = MS + "FOOTBALL" + CHRS$ (13) 


FOR K = 1 TO 40:M$ = MS + "**":; NEXT K 
READ S$(1),S$(2) 
TEXT : HOME : PRINT MS 
PRINT "YOU ARE THE HEAD COACH OF A PROFESSION-" 
PRINT "AL FOOTBALL TEAM. YOUR OPPONENT'S" 
PRINT "COACH IS YOUR COMPUTER.": PRINT 
PRINT “WHEN EITHER OF YOU HAVE THE BALL, YOU" 
PRINT “HAVE THE OPTIONS OF RUNNING, PASSING" 
PRINT “OR KICKING BALL. (A KICK MAY BE A PUNT" 
PRINT "OR FIELD GOAL ATTEMPT." 
VTAB 21: PRINT “STRIKE ANY KEY TO BEGIN THE GAME ..."; 
GET K$ 
HOME : PRINT M$ 


FOR K = 1 TO 5: CALL ( - 198): NEXT K 

PRINT “AND NOW FOR THE TOSS OF THE COIN:": PRINT 
PRINT "YOU CALL IT -- (H)EADS OR (T)AILS "; 

GET KS 

IF NOT (KS = "H" OR K$ = "T") THEN 219 

IF RND (1) < = .5 THEN 266 


HTAB 1: VTAB 8 

PRINT "YOU WON THE TOSS.": GOTO 326 

HTAB 1: VTAB 8 

PRINT "THE COMPUTER WON THE TOSS, AND" 
PRINT "ELECTS TO RECEIVE.” 

FL = 1 

FOR T = 1 TO 2566: NEXT T 

GOTO 360 

PRINT “DO YOU WANT TO (K)ICK OR (R)ECEIVE? "; 
FL = 1 

GET K$: IF K$ = "R" THEN FL = @: GOTO 3698 
IF K$ < > "K" THEN 349 


PS = 0:CS = @:DN = 1:YD = 20 
YG = 16:YL = 28 
TL = 60 


IF TL < @ THEN 1630 
FOR DN = 1 TO 4 
TL = TL - 1 
HOME : NORMAL : PRINT M$ 
PRINT SPC( 12) "SCOREBOARD" 
PRINT 

PRINT "YOU HAVE "PS" PTS COMPUTER HAS "CS" PTS" 
PRINT 

PRINT “DOWN="DN" YDS TO GO="YG 


486 
496 
586 
516 
526 
538 
546 
550 
560 
578 
588 
596 
686 
616 
628 
638 
648 
65@ 
666 
676 
68¢ 
696 
7098 
716 
728 
730 
748 
758 
768 
776 
786 
796 
8008 
816 
828 
838 
848 
85¢ 
8608 
876 
8808 
8908 
9008 
918 
920 
936 
946 
9508 
960 
976 
986 
998 
1600 
1016 
1920 
10638 


PRINT "DO YOU WISH TO (P)ASS, 


PRINT S$(1) SPC( 1)R" YARDLINE" 
PRINT S$(2) SPC( 1)YL" YARDLINE" 


PRINT S$(2) SPC( 1)R" YARDLINE" 
PRINT S$(1) SPC( 1)YL" YARDLINE" 


MINUTES" 
"YOU PAVE THE BALL* 


“THE COMPUTER HAS THE BALL": GOTO 799 
(R)UN OR (K) ICK" 


INT ( RND (1) * 48 - 15): GOTO 769 
INT ( RND (1) * 38 — 10): GOTO 709 


PRINT 

IF FL = 1 THEN 530 

IF YL > 50 THEN R = 108 —- YL: 
IF YL < = 5@ THEN 

GOTO 558 

IF YL > 58 THEN R = 108 - YL: 
IF YL < = 58 THEN 

PRINT 

PRINT “TIME REMAINING="TL" 

IF TL < = @ THEN GOTO 1838 
PRINT 

IF FL = @ THEN PRINT 

IF FL = 1 THEN’ PRINT 

PRINT : INVERSE 

NORMAL 

GET K$ 

IF K$ = "P" THEN MY = 

IF K$ = "R" THEN MY = 

IF K$ < > “K" THEN 638 
MY INT ( RND (1) * 280 + 40) 


YL YL + MY: 
GOTO 1018 
YL = YL + MY:YG = YG 


IF YL > 16@ THEN 936 
= @ THEN 778 


IF YG < 
IF YL < @ THEN 1170 
NEXT DN:FL = FL + 1 

YL = 106 ~ YL 
IF FL = 2 THEN FL 

YG = 10:DN = 1 
GOTO 39¢ 
IF DN < 4 THEN 846 
CALL ( - 198): CALL 
PRINT 


IF YL > 100 THEN 868 


- MY 


Y 


( ~ 198) 


PRINT "*** THE COMPUTER TRIES A KICK ***" 


FOR T 1 TO 7806: NEXT T 
K$ = "K": GOTO 658 
FOR T = 1 TO 2000: NEXT T 
K$ = "R": GOTO 658 
HOME : PRINT M$: PRINT 
FOR K = 1 TO 3: CALL ( — 198): NEXT K 
PRINT : PRINT "THE KICKER SCORED A FIELD GOAL*® 
IF FL = @ THEN PS = PS + 3 
IF FL = 1 THEN CS = CS + 3 
FOR T = 1 TO 1000: NEXT T 
GOTO 1018 
HOME : PRINT M$: PRINT 
FOR K = 1 TO 7: CALL ( — 198): NEXT K 
FLASH 
PRINT " ***TOUCH-DOWN***" 
NORMAL 
IF FL = @ THEN PS = PS + 7 
IF FL = 1 THEN CS = CS + 7 
FOR T = 1 TO 100@: NEXT T 
FL = FL + 1:YL = 28 
GOTO 7690 
HOME : PRINT M$ 
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1040 
1850 
1868 
1070 
1888 
1898 
1100 
1110 
1120 
1136 
1148 
1158 
1168 
1178 
1188 
1198 
12060 
1218 
1228 
1239 
1248 
1258 
1268 
1278 
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FOR T = 1 TO 300: NEXT T 
CALL ( - 198): CALL ( ~ 198) 


PRINT : PRINT “ *** THE GAME IS OVER **** 

PRINT : PRINT "THE FINAL SCORE IS:" 

PRINT : PRINT "COMPUTER-"CS 

PRINT : PRINT "YOU-"PS 

IF CS > PS THEN PRINT : FLASH : PRINT "COMPUTER WINS" 
IF CS < PS THEN PRINT : FLASH : PRINT "YOU WIN" 

IF CS = PS THEN PRINT *ITS A TIE GAME" 

PRINT : NORMAL : PRINT "DO YOU WISH TO PLAY AGAIN ..." 


GET K$: IF K$ = "Y¥" THEN 178 
IF K$ < > "Y¥" THEN 11498 


HOME : END 
HOME : PRINT M$: PRINT 
CALL - 198: CALL -—- 198 


PRINT “THE BALL IS DOWNED IN THE END ZONE ..."” 


PRINT : FLASH : PRINT " * SAFETY *" 
IF FL = @ THEN CS = CS + 2 
IF FL = 1 THEN PS = PS + 2 
FOR T = 1 TO 2608: NEXT T 


FL = FL + 1:YL = 298 

GOTO 768 

DATA THE BALL IS ON THE COMP'S 
DATA THE BALL IS ON YOUR 


Program 76 SHELL GAME 


If you can do this, you’re pretty good. 
—Overheard in a bar in Tiajuana 


16 REM ** SHELL GAME ** 

20 REM 

3@ FOR K = 1 TO 266:B$ = B$ + CHRS$ (32): NEXT K 
46 M$ = LEFTS (B$,15) 

50 MS = M$ + "SHELL GAME" + CHR$ (13) 

60 FOR K = 1 TO 46:L$ = L$ + "*": NEXT K 

76 MS = MS + LS 

8@ TEXT : HOME : PRINT M$ 

98 PRINT "THIS IS A COMPUTERIZED VERSION OF THE" 
106 PRINT “OLD SHELL GAME. IT OFTEN PROVES THAT" 
116 PRINT "THE HAND IS QUICKER THAN THE EYE." 

126 VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
138 GET K$ 

148 RG = @:WG = 6 

156 HOME : PRINT M$ 

16@ SN = INT ( RND (1) * 3) +1 

17@ VTAB 7: PRINT "THE PEA IS UNDER THIS SHELL ...* 
180 HTAB 15: VTAB 10: PRINT "O O O*; 

198 GOSUB 520 

260 HTAB 1: VTAB 7: CALL - 868 

219 PRINT “WATCH THE SHELLS ..." 

228 GOSUB 566 

238 HTAB 1: VTAB 13 

240 PRINT “WHICH SHELL IS THE PEA UNDER (1-3)? "; 
258 GET GS 

268 IF G$ < "1" OR GS > "3" THEN 259 

278 G = ASC (G$) - 48 

280 IF G< > SN THEN 330 

299 FOR X = 1 TO 3: CALL - 198: NEXT X 

300 PRINT : FLASH : PRINT * *** YOU'RE RIGHT **#* 
310 RG = RG + 1 

328 GOTO 378 

330 PRINT : INVERSE 

348 PRINT "SORRY, THE PEA IS UNDER “SN 

35@ WG = WG + 1 

360 FOR X = 1 TO 2: CALL - 198: NEXT X 

376 NORMAL 

388 VTAB 21: PRINT "WOULD YOU LIKE TO PLAY AGAIN (Y/N)? “ 
398 GET KS: IF K$ = "Y" THEN 159 

406 IF K$ < > "N*" THEN 398 

410 HOME : PRINT : PRINT M$;: INVERSE 

426 PRINT B$;: PRINT B$: VTAB 5 

430 PRINT SPC( 5)"YOU HAVE "RG" CORRECT GUESS"; 
440 IF RG < > 1 THEN PRINT "ES"; 

45@ PRINT : PRINT SPC( 15) "AND" 

466 PRINT SPC( 5)"YOU HAVE "WG" WRONG GUESS"; 
470 IF WG < > 1 THEN PRINT “ES"; 
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480 
490 
598 
518 
528 
538 
548 
556 
568 
578 


596 
688 
618 
628 
638 
646 
656 
660 
678 
688 
696 
788 
716 
728 
730 
748 
758 
768 
776 
788 
796 
888 
8198 
826 
838 
840 
8506 
860 
878 
880 
896 
988 
910 
9208 
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NORMAL : HTAB 1: VTAB 14: PRINT L$ 
PRINT : PRINT 

PRINT " HAVE A NICE DAY..." 

VTAB 21: END 

VTAB 10: HTAB 2 * INT ( RND (1) * 3) + 15 
FLASH : PRINT "O";: NORMAL 

FOR T = 1 TO 2600: NEXT T 

RETURN 

FOR N = 1 TO INT ( RND (1) * 15 + 15) 
HTAB 17: VTAB 16: PRINT CHRS (32); 
HTAB 17: VTAB 9: PRINT "0"; 
H = RND (1) 

IF H < .5 THEN GOSUB 646 

IF H > .5 THEN GOSUB 776 

NEXT N 

RETURN 

FOR K = 17 TO 21 

HTAB K: VTAB 9: PRINT "0"; 

GOSUB 986 

HTAB K: VTAB 9: PRINT CHRS$ (32); 
NEXT K 

HTAB 21: VTAB 18: PRINT “O"; 
GOSUB 966 

HTAB 18: VTAB 10 

PRINT "0 0 "; 

GOSUB 968 

HTAB 17: VTAB 10 

PRINT "0 0 "; 

RETURN 

FOR K = 17 TO 13 STEP - 1 

HTAB K: VTAB 9: PRINT "0"; 

GCSUB 996 

HTAB K: VTAB 9: PRINT CHR$ (32); 
NEXT K 

HTAB 13: VTAB 16: PRINT "0"; 
GOSUB 968 

HTAB 13: VTAB 19 

PRINT " O 0"; 

GOSUB 986 

HTAB 14: VTAB 18 

PRINT " 0 0"; 

RETURN 

FOR T = 1 TO 10: NEXT T 
Z = PEEK ( —- 16336) 

RETURN 


Program 77 FAIR SHELL GAME 


He who gives, giveth. He who takes, taketh away. 
—15th Century English proverb 


The Shell Game in Program 76 is a perfectly honest one. This version is. . . well, not so 
honest. It sort of lets you win more than your fair share of shell games. When the 
computer asks you to enter your name, just remember to type one space before striking 
the space bar. The computer uses that space at the end of your name to identify you and 
load matters in your favor. 


16 REM ** FAIR SHELL GAME ** 


28 REM 
38 FOR K = 1 TO 168:B$ = B$ + CHR$ (32): NEXT K 
4@ FOR K = 1 TO 15:M$ = M$ + " ": NEXT K 


50 M$ = M$ + “SHELL GAME" + CHRS$ (13) 

60 FOR K 1 TO 4@:L$ = L$ + "*": NEXT K 

76 M$ = M$ + LS 

86 TEXT : HOME : PRINT M$ 

99 PRINT "THIS IS A COMPUTERIZED VERSION OF THE" 
164 PRINT “OLD SHELL GAME. IT OFTEN PROVES THAT" 
116 PRINT “THE HAND IS QUICKER THAN THE EYE." 
120 VTAB 16 

13@ PRINT "THIS ONE IS FOR TWO PLAYERS, AND IT" 
149 PRINT “ENCOURAGES A BIT OF WAGERING ON THE" 
15@ PRINT "SIDE." 

16@ VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ..." 
176 GET K$ 

180 RG = @:WG = @ 

198 HOME : PRINT M$: PRINT 

280 FOR PF = 1 TO 2 

210 PRINT “PLAYER "PF", ENTER YOUR FIRST NAME:" 
228 INPUT N$(PF):NS$(PF) = LEFTS$ (NS$(PF),20) 

230 IF LEN (NS$(PF)) > 1 THEN 258 

240 PRINT “QUIT FOOLIN' AROUND.": GOTO 229 

258 PRINT : PRINT 

266 NEXT PF 

27@ HOME : PRINT M$ 

286 PF = PF + 1: IF PF > 2 THEN PF = 1] 

298 SN = INT ( RND (1) * 3) +1 

300 VTAB 7: PRINT “ HERE IS THE PEA ..." 

316 HTAB 15: VTAB 19: PRINT "O O O*; 

326 GOSUB 786 

336 VTAB 15 

348 PRINT N$(PF)", WHERE IS THE PEA (1-3)? "; 
358 GET FG$ 

360 IF FG$ < "1" OR FGS$ > "3" THEN 3598 

378 G$(PF) = FG$: PRINT FG$; 

388 PRINT : PRINT 

390 IF RIGHTS (N$(PF),1) < > CHRS$ (32) THEN 419 
490 IF INT (4 * RND (1)) > 1 THEN SN = VAL (G$(PF)) 
416 IF VAL (G$(PF)) = SN THEN 489 
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420 
430 
440 
450 
468 
4708 
480 
490 
508 
516 
520 
536 
548 
558 
568 
578 
588 
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600 
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620 
638 
648 
658 
666 
678 
6808 
698 
708 
716 
720 
730 
748 
758 
760 
776 
788 
798 
880 
818 
8208 
8398 
849 
858 
866 
876 
880 
898 
908 
919 
928 
9308 
948 
956 
968 
9798 
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HOME : PRINT M$ 

PRINT "YOU WERE WRONG, "N$(PF)"." 
PRINT "THE PEA WAS UNDER “SN*," 

IF PF = 2 THEN 560 

FOR T = 1 TO 1000: NEXT T 

GOTO 276 

RG(PF) = RG(PF) + 1 

HOME : PRINT M$ 

VTAB 4 

FLASH 

PRINT N$(PF)", YOU GOT IT}!* 

CALL - 198: CALL —- 198 

FOR T = 1 TO 1500: NEXT T 

NORMAL : GOTO 56¢ 

VTAB 21: PRINT "YOU TWO WANT TO PLAY AGAIN (Y/N)? "°; 
GET K$: IF KS = "Y* THEN 276 

IF KS < > "N" THEN 57¢ 

HOME : PRINT : PRINT M$;: INVERSE 
PRINT BS;: PRINT BS: VTAB 5 

FOR K = 1 TO 2: PRINT 

PRINT N$(K)" HAD "RG(K)" CORRECT GUESS"; 
IF RG(K) < > 1 THEN PRINT “ES"; 
PRINT CHRS$ (46) 

PRINT : PRINT : NEXT K 

NORMAL : VTAB 12: PRINT L$ 

PRINT : PRINT 

PRINT " HAVE A NICE DAY..." 

END 

VTAB 16: HTAB 2 * INT ( RND (1) * 3) + 15 
FLASH : PRINT "O";: NORMAL 

FOR T = 1 TO 2000: NEXT T 

PRINT 

VTAB 7: PRINT "NOW, WATCH THE SHELLS ..." 
FOR N = 1 TO INT ( RND (1) * 15 + 15) 
HTAB 17: VTAB 16: PRINT CHR$ (32); 
HTAB 17: VTAB 9: PRINT "0"; 
H = RND (1) 

IF H < .5 THEN GOSUB 8486 

IF H > .5 THEN GOSUB 979 

NEXT N 

PRINT 

RETURN 

FOR K = 17 TO 21 

HTAB K: VTAB 9: PRINT “O"; 


GOSUB 1196 

HTAB K: VTAB 9: PRINT CHRS$ (32); 
NEXT K 

HTAB 21: VTAB 10: PRINT "0"; 
GOSUB 1108 


HTAB 18: VTAB 18 

PRINT "0 0 "; 

GOSUB 1189 

HTAB 17: VTAB 18 

PRINT “O O "; 

RETURN 

FOR K = 17 TO 13 STEP - 1 


980 


HTAB K: VTAB 9: PRINT “O*; 


998 GOSUB 1188 


1009 
1018 
1020 
1038 
1048 
1858 
1866 
1878 
1080 
10998 
1168 
1118 
11298 


HTAB K: VTAB 9: PRINT CHRS$ (32); 
NEXT K 

HTAB 13: VTAB 18: PRINT "0"; 
GOSUB 1199 

HTAB 13: VTAB 18 

PRINT " O O*; 

GOSUB 1198 

HTAB 14: VTAB 190 

PRINT " O O*; 

RETURN 

FOR T = 1 TO 186: NEXT T 

Z = PEEK ( —- 16336) 

RETURN 
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Program 78 RUSSIAN ROULETTE 


Heck, if you can count to six you can play Russian Roulette 
—From the epitath of E. Ross Bennington 


18 REM ** RUSSIAN ROULETTE ** 

20 REM 

30 MS = we 

4@ FOR K = 1 TO 11:M$ = M$ + CHR$ (32): NEXT K 

5@ MS = M$ + "RUSSIAN ROULETTE" + CHR$ (13) 

60 FOR K = 1 TO 4@:M$ = MS + “*": NEXT K 

70 TEXT : HOME : PRINT MS 

88 PRINT "THIS IS A GAME FOR ONE TO FIVE PLAYERS." 
90 PRINT : PRINT "THE EQUIPMENT CONSISTS OF THE FOLLOWING" 
100 PRINT “ITEMS:": PRINT 

11@ PRINT ‘TAB( 3)"1 EA. REVOLVER (SOMEWHERE INSIDE" 
12@ PRINT TAB( 9)"THIS COMPUTER) ." 

13@ PRINT 

14@ PRINT TAB( 3)"1 EA. LIVE BULLET (IN ONE OF THE" 
15@ PRINT TAB( 9)"CHAMBERS IN THE REVOLVER IN* 

168 PRINT ‘TAB( 9)"THE COMPUTER) ." 

17@ PRINT : PRINT "THE PLAYERS EACH TAKE A TURN PULLING" 
18@ PRINT "THE TRIGGER. IF THE GUN JUST MAKES A" 

19@ PRINT "CLICKING SOUND, THAT PLAYER SURVIVES." 
208 PRINT "BUT IF THERE IS NO CLICKING SOUND ..." 
21@ PRINT “WELL, ENOUGH ABOUT THAT." 

220 PRINT : PRINT “STRIKE ANY KEY TO CONTINUE ..."; 
238 GET K$: HOME : PRINT M$ 

248 PRINT "HOW MANY PLAYERS ARE STARTING THIS" 

258 PRINT “ROUND (1-5)? *%; 

268 INPUT "";NP: IF NP > @ AND NP < 6 THEN 280 

270 PRINT “1 THROUGH 5, PLEASE ...";: GOTO 269 

288 HOME : PRINT MS 

298 FOR J = 1 TO NP 

308 PRINT : PRINT “ENTER THE NAME OF PLAYER #"J":" 
318 PRINT : HTAB 5 

320 INPUT "";NAS(J) 

330 IF LEN (NAS(J)) > @ AND LEN (NAS(J)) < 28 THEN 359 
348 PRINT "QUIT FOOLIN' AROUND!": GOTO 308 

358 NEXT J 


368 Q = INT ( RND (1) * 6 +1) 
378 FOR N = 1 TO NP 
380 IF RIGHTS (NAS(N),1) = CHRS$ (32) THEN Q = N 


390 NEXT N 

408 FOR J = 1 TO NP 

416 HOME : PRINT MS 

420 PRINT NA$(J)":": PRINT 

430 PRINT "PULL THE TRIGGER OR STRIKE ANY KEY ..." 
440 GET KS 

450 FOR T = 1 TO 250: NEXT T 

460 IF Q = J THEN 580 

470 PRINT : PRINT "*** CLICK *#*e" 

48@ CLK = PEEK ( - 16336):CLK = PEEK ( - 16336) 
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490 
506 
5108 
520 
530 
540 
550 
566 
576 
588 
596 
696 
610 
626 
630 
646 
650 


FOR T = 1 TO 20680: NEXT T 

NEXT J 

VTAB 19: PRINT "ALL PLAYERS SURVIVED THIS ROUND." 
PRINT 

PRINT “ARE YOU WILLING TO PUSH YOUR LUCK AND* 
PRINT “TRY ANOTHER ROUND (Y/N) 2"; 

GET K$ 

IF K$ = "N" THEN HOME : END 

GOTO 368 

HOME : PRINT M$: PRINT 

PRINT “*** BANG ***" 


FOR T = 1 TO 5: CALL ( —- 198): NEXT T 
PRINT : PRINT "DEAR "NAS(J)":" 
PRINT : PRINT TAB( 5)"YOU OBVIOUSLY HAVE NO DESIRE" 


PRINT TAB( 5)"TO PLAY AGAIN." 
PRINT : PRINT "GOOD BYE ...” 
END 
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Program 79 FAIR RUSSIAN ROULETTE 


The measure of a man’s real character is what he would do if he knew he never would be 
found out. 


—Thomas Babingon Macaulay 


I hate to say what happens to a player when you discretely insert a space at the end of his 
or her name. Tsk-tsk. Shame on you. 


19 

20 

30 

49 

58 

60 

78 

80 

90 

100 
110 
120 
130 
148 
158 
160 
178 
188 
198 
200 
2108 
220 
230 
248 
250 
260 
278 
280 
2908 
308 
318 
320 
330 
348 
358 
360 
370 
380 
390 
400 
419 
420 
430 
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REM ** RUSSIAN ROULETTE ** 
REM 
FOR K = 1 TO 11:M$ = M$ + CHR$ (32): NEXT K 


MS = MS + "RUSSIAN ROULETTE" + CHRS (13) 


FOR K = 1 TO 4@:M$ = MS + "*": NEXT K 
TEXT : HOME : PRINT M$ 

PRINT "THIS IS A GAME FOR ONE TO FIVE PLAYERS." 

PRINT : PRINT "THE EQUIPMENT CONSISTS OF THE FOLLOWING" 
PRINT "“ITEMS:": PRINT 

PRINT TAB( 3)"l EA. REVOLVER (SOMEWHERE INSIDE" 
PRINT TAB( 9)"THIS COMPUTER)." 

PRINT 

PRINT TAB( 3)"l EA. LIVE BULLET (IN ONE OF THE" 
PRINT TAB( 9) "CHAMBERS IN THE REVOLVER IN" 

PRINT ‘TAB( 9)"THE COMPUTER)." 

PRINT : PRINT "THE PLAYERS EACH TAKE A TURN PULLING" 
PRINT "THE TRIGGER. IF THE GUN JUST MAKES A" 

PRINT "CLICKING SOUND, THAT PLAYER SURVIVES." 

PRINT “BUT IF THERE IS NO CLICKING SOUND ..." 

PRINT "WELL, ENOUGH ABOUT THAT." 

PRINT : PRINT "STRIKE ANY KEY TO CONTINUE ..."; 

GET K$: HOME : PRINT MS 

PRINT “HOW MANY PLAYERS ARE STARTING THIS" 

PRINT "ROUND (1-5)? "; 

INPUT "";NP: IF NP > @® AND NP < 6 THEN 270 

PRINT "1 THROUGH 5, PLEASE ..."%;: GOTO 258 

HOME PRINT MS 

FOR J = 1 TO NP 

PRINT : PRINT "ENTER THE NAME OF PLAYER #"J":" 

PRINT : HTAB 5 

INPUT "";NAS (J) 

IF LEN (NAS(J)) > @® AND LEN (NAS(J)) < 2@ THEN 340 
PRINT "QUIT FOOLIN' AROUND!": GOTO 298 


NEXT J 
Q = INT ( RND (1) * 6 +1) 

FOR N = 1 TO NP 

IF RIGHTS (NAS$(N),1) = CHRS$ (32) THEN Q = N 
NEXT N 


FOR J = 1 TO NP 

HOME : PRINT M$ 

PRINT NAS$(J)"s:": PRINT 

PRINT “PULL THE TRIGGER OR STRIKE ANY KEY ..." 
GET K$ 


440 
450 
460 
478 
480 
498 
588 
518 
520 
530 
5408 
558 
568 
578 
588 
598 
680 
618 
626 
630 
640 


FOR T = 1 TO 250: NEXT T 


IF Q = J THEN 570 

PRINT : PRINT "*** CLICK ***" 
CLK = PEEK ( ~ 16336):CLK = PEEK ( ~ 16336) 

FOR T = 1 TO 2000: NEXT T 

NEXT J 

VTAB 19: PRINT “ALL PLAYERS SURVIVED THIS ROUND." 


PRINT 


PRINT “ARE YOU WILLING TO PUSH YOUR LUCK AND" 
PRINT “TRY ANOTHER ROUND (Y/N) ?"; 

GET KS$ 

IF K$ = "N* THEN HOME : END 

GOTO 358 

HOME : PRINT MS: PRINT 


PRINT “*** BANG **2" 


FOR T = 1 TO 5: CALL ( — 198): NEXT T 
PRINT : PRINT "DEAR “NAS(J)":" 
PRINT : PRINT TAB( 5)*"YOU OBVIOUSLY HAVE NO DESIRE" 


PRINT TAB( 5)"TO PLAY AGAIN." 
PRINT : PRINT "GOOD BYE ..."* 
END 
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Program 80 SIMPLE SIMON SEQUENCE 


1-2-2-4-4. . .@$$@. 4-2-2-1-3...%&> @!1-1-2-4... 


10 
28 
38 
49 


—Overheard in countless homes on Christmas day, 1980 


REM ** SIMPLE SIMON ** 

REM 

DIM A(168) 

FOR K = 1 TO 14:M$ = M$ + CHRS$ (32): NEXT K 


50 mS = MS + "SIMPLE SIMON" + CHRS (13) 


68 

78 

80 

98 

108 
118 
128 
130 
146 
158 
168 
178 
1886 
198 
2898 
218 
228 
238 
248 
258 
260 
278 
280 
298 
308 
318 
320 
338 
340 
3508 
368 
378 
380 
398 
400 
410 
4208 
430 
448 
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FOR K = 1 TO 40:M$ = M$ + "*": NEXT K 
TEXT : HOME : PRINT M$ 

PRINT “DO YOU THINK YOU CAN REMEMBER A SE~* 

PRINT “QUENCE OF NUMBERS? CAN YOU DO IT IF" 

PRINT "THE SEQUENCE GROWS LONGER WITH EACH" 

PRINT "ATTEMPT?" 

PRINT : PRINT "YOUR JOB HERE IS TO REPRODUCE THE SE-" 
PRINT “QUENCE AFTER THE COMPUTER SHOWS IT TO" 

PRINT "YOU.* 

PRINT : PRINT "WHAT'S THE LONGEST SEQUENCE YOU THINK" 
PRINT "YOU CAN DO (2-168)? "; 

INPUT "";SL 

IF SL < 2 OR SL > 100 THEN PRINT "? ";: GOTO 176 
VTAB 21: PRINT “STRIKE ANY KEY TO BEGIN ..."; 

GET k$ 

HOME : PRINT MS 


GOSUB 478 
FOR K = 1 TO SL 
A(K) = INT ( RND (1) * 4 + 1) 


FOR J = 1 TOK 

INVERSE :HT = A(J) * 5 + 18 
VTAB 12: HTAB HT + 1 

PRINT SPC( 1);A(J); SPC( 1) 


NORMAL 

CALL - 198 

FOR T = 1 TO 200: NEXT T 
GOSUB 478 

NEXT J 

GOSUB 519 

IF FL = 1 THEN 619 

NEXT K 

HOME : PRINT M$ 

FLASH 


PRINT "** YOU BEAT THE MACHINE *** 
NORMAL : PRINT "WITH A SEQUENCE OF "SL" NUMBERS." 
VTAB 21: PRINT “TRY AGAIN (Y/N)? "; 
FL = 6 

GET K$ 

IF K$ = "Y" THEN HOME : PRINT M$: GOTO 159 


458 
4608 
470 
4808 
498 
580 
518 
5298 
538 
540 
550 
560 
5708 
580 
5908 
689 
618 
6268 
638 
640 
650 


IF K$ < > "N* THEN 439 
END 

FOR N = 1 TO 4 

VTAB 12: HTAB 11 + 5 * N 
PRINT SPC( 1);N; SPC( 1) 
NEXT N: RETURN 

FOR L = 1 TO K 

GET KS 


IF K$ > "4" OR K$ < "1" THEN 529 
NK = ASC (K$) — 48 

I(L) = NK 

IF I(L) < > A(L) THEN FL = 1: RETURN 
Q = I(L) 

NEXT L 

FOR T = 1 TO 700: NEXT T 

RETURN 

HOME : PRINT M$: PRINT 

PRINT " *** YOU GOOFED ***" 

PRINT : PRINT "YOU GOT "J ~ 2" KEYS CORRECT" 
GOTO 419 

END 
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Program 81 REACTION-TIME TESTER 


Faster than a speeding bullet (Pow! —cheweeeeng). 

More powerful than a locomotive (Chucka-chucka-chucka)! 
Able to leap tall buildings at a single bound (Wissssh)! 
Look! Up in the sky! 

It’s a bird! 

It’s a plane! 

It’s Su-u-u-u-uper Ma-a-a-an! 


—From Mutual Broadcasting’s “Superman’ 


1@ REM ** REACTION-TIME TESTER ** 

28 REM 

38 FOR K = 1 TO 10:M$ = M$ + CHRS (32): NEXT K 
40 M$ = MS + “REACTION-TIME TESTER" + CHRS$ (13) 
5@ FOR K = 1 TO 4@:M$ = M$ + "*": NEXT K 

60 F = @:SM = @:R = @ 

70 TEXT : HOME : PRINT MS 

86 PRINT “STRIKE THE SPACE BAR WHEN THE ASTER-* 
98 PRINT "ISKS (*) APPEAR." 

196 VTAB 12 

116 PRINT “WATCH FOR ASTERISKS ..." 

12@ CALL ( - 198): CALL ( — 198) 

130 D = INT ( RND (1) * 680 + 368) 

149 POKE - 16368,06 

158 FOR T = 1 TO D 

160 IF PEEK ( ~ 16384) > 128 THEN 449 

176 NEXT T 


186 R = @ 
190 PRINT : PRINT "®kRRKRRAEKKKKKEKRERN 
280 POKE - 16368,9 


216 FOR R = 1 TO 200 

220 IF PEEK ( - 16384) > 128 THEN 256 

236 NEXT R 

240 PRINT : PRINT "YOU TOOK TOO LONG; FORGET IT": END 
256 PRINT : PRINT 

268 CALL ( - 198): CALL ( - 198) 

270 R= INT (R * 160 / 85) 

28@ PRINT "YOUR REACTION TIME IS "R" HUNDREDTHS" 

298 PRINT "OF A SECOND" 

300 PRINT : PRINT "WOULD YOU LIKE TO TRY AGAIN (Y¥/N)2"; 
316 POKE ~ 16368,0 

320 F = F + 1:SM = SM+R 

330 GET K$: IF K$ = "Y" THEN 70 

340 IF K$ < > "N" THEN 338 

350 HOME : PRINT M$: PRINT : PRINT 

360 AV = INT (SM / F) 

370 PRINT “YOUR AVERAGE SCORE IS "AV" HUNDREDTHS 

386 PRINT "OF A SECOND." 

396 PRINT : PRINT 

400 IF AV > 5@ THEN PRINT "YOU NEED A LITTLE IMPROVEMENT" 
416 IF AV < 25 THEN PRINT "THAT'S VERY GOOD" 
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420 IF AV > = 25 AND AV < = 58 THEN PRINT "NOT BAD" 
438 END 
440 PRINT "TOO SOON -- CALM DOWN": GOTO 139 
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Program 82 SPEECH WRITER 


“What more can I say?” 


—Overheard at a Toastmaster’s convention 


Say what you're going to say. Say it. Then say what you said. This program helps a lot. 


19 

20 

30 

40 

58 

68 

70 

80 

90 

100 
110 
128 
136 
148 
1508 
1608 
178 
188 
198 
208 
210 
228 
230 
248 
258 
268 
278 
288 
290 
3008 
3190 
320 
330 
340 
358 
360 
378 
380 
390 
400 
410 
420 
430 
440 
450 
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REM ** SPEECH WRITER ** 

REM 

H$ = "SPEECH WRITER" + CHRS$ (13) 

FOR K = 1 TO 40:H$ = HS + "=": NEXT K 
TEXT : HOME : PRINT H$ 

PRINT "ARE YOU MALE OR FEMALE (M/F)? "; 
GET Sx$ 

IF SX$ = "M" OR SX$ = "F" THEN 100 
GOTO 70 


PRINT SX$: PRINT 

PRINT "ARE YOU MARRIED (Y/N)? "; 
GET MSS 

IF MSS = "Y" OR MSS = "N" THEN 159 
GOTO 128 


PRINT MS$: PRINT 
PRINT “INDICATE WHAT TIME OF DAY THE SPEECH" 


PRINT "WILL BE DELIVERED:" 

PRINT : PRINT TAB( 5)"1 ~- MORNING* 

PRINT TAB( 5)"2 ~~ AFTERNOON" 

PRINT TAB( 5)"3 -- EVENING" 

GET TDS 

IF TD$ > "3" OR TDS < "1" THEN 219 

IF TDS = "1" THEN TD$ = "MORNING® 

IF TD$ = "2" THEN TDS = "AFTERNOON" 

IF TDS = "3" THEN TDS = "EVENING" 

IF SX$ = "M" AND MSS = "Y" THEN ZS = "WIFE" 

IF SX$ = "M" AND MSS = "N" THEN Z$ = "GIRLFRIEND" 
IF SX$ = "F" AND MSS = "Y" THEN ZS = "HUSBAND" 
IF SX$ = "F" AND MSS = "N® THEN Z$ = "BOYFRIEND" 


HOME : PRINT HS$ 
PRINT "ENTER A SENTENCE OR PHRASE OF " 

PRINT "12@ CHARACTERS OR LESS THAT EXPRESSES" 
PRINT "YOUR OPINION ON A MATTER OF GREAT " 
PRINT "IMPORTANCE. ENCLOSE YOUR UTTERANCE" 
PRINT "IN QUOTES IF YOU PLAN TO USE ANY " 
PRINT "PUNCTUATION": PRINT 

INPUT S$ 
LS = LEN (S$) 

IF LS > 5 THEN 420 


PRINT "YOU HAVE TO SAY SOMETHING MORE" 
PRINT “THAN THAT. TRY AGAIN ...": GOTO 370 
IF RIGHTS (S$,1) = CHRS (46) THEN 440 
S$ = S$ + CHRS (46):LS = LS + 1 

GOSUB 882 

PRINT 


460 IF LS < = 125 THEN 499 

470 PRINT "A LITTLE LONG-WINDED, TRY AGAIN ..." 

489 GOTO 378 

499 HOME : PRINT H$ 

500 PRINT : PRINT "PLEASE WAIT WHILE I COMPOSE THE" 
519 PRINT “SPEECH FOR YOU ..." 

520 GOSUB 1050 

530 VTAB 20 

549 PRINT “OK, THE SPEECH IS READY. STRIKE ANY " 
550 PRINT "KEY TO SEE IT ..."; 

568 GET K$ 

570 HOME : PRINT H$ 

588 GOSUB 970:Y$ = M$(1): GOSUB 999 

598 GOSUB 1850 

600 Y$ = "PLEASE!!": GOSUB 999 

610 PRINT : PRINT 

620 PRINT "(PAUSE FOR LAUGHTER)": PRINT 

630 FOR XX = 1 TO 2: GOSUB 105@: NEXT XX 

640 HOME : PRINT H$: PRINT 

650 Y$ = "THE TOPIC OF THIS " + TDS + "'S * 

660 Y$ = Y$ + "DISCUSSION IS:" + CHR$ (32) + S$ 

678 GOSUB 1858: GOSUB 908 

688 PRINT : PRINT 

690 PRINT "(MEANINGFUL PAUSE)": PRINT 

706 GOSUB 1659 

719 Y$ = S$: GOSUB 909 

720 PRINT : PRINT 

730 GOSUB 1958 

749 Y$ = "AND TO SUMMARIZE THE MATTER: " 

758 GOSUB 900: GOSUB 1958 

769 Y$ = S$: GOSUB 999: GOSUB 1959 

770 PRINT : PRINT 

78@ Y$ = "THANK YOU FOR YOUR KIND ATTENTION." 

799 Y$ = Y$ + " AND HAVE A GOOD * + TD$ + CHRS$ (46) 
899 GOSUB 900: GOSUB 1658 

819 PRINT : PRINT 

820 PRINT "(SMILE AND NOD THROUGH APPLAUSE) * 

830 PRINT : PRINT “WANT TO COMPOSE ANOTHER SPEECH (Y/N)? "; 
840 GET K$ 

850 IF K$ = "Y" THEN 59 

860 IF K$ = "N" THEN END 

878 GOTO 849 

880 X$ = S$ 

890 RETURN 

900 FOR N = 1 TO LEN (YS) 

910 CHS = MID$ (Y$,N,1) 

920 IF POS (@) > 32 AND CH$ = CHR$ (32) THEN PRINT : GOTO 949 
930 PRINT CHS; 

949 FOR T = 1 TO 50: NEXT T 

950 NEXT N 

960 RETURN 

976 AS = "A FUNNY THING HAPPENED TO ME ON THE WAY " 
989 AS = A$ + "HERE THIS " + TDS + ":" + CHRS$ (32) 
990 AS = A$ + "A GUY STOPPED ME ON THE STREET AND ASKED “ 
1900 AS = A$ + "ME FOR AN EXAMPLE OF SOMETHING THAT " 
1919 AS = A$ + "REALLY BOTHERS ME. I SAID, ‘TAKE MY " + ZS 
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1020 AS = AS + ", FOR EXAMPLE ... 
1630 M$(l) = AS 

1640 RETURN 

1058 FOR T = 1 TO 2000: NEXT T 
1060 RETURN 
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Program 83 DUNGEON CHARACTER GENERATOR #1 


Making what is inherently simple seem exceedingly difficult is the challenge of incom- 
petence. 
—Dungeon Master 


1@ REM ** DUNGEON CHARACTER GENERATOR #1 ** 
20 REM 

38 FOR K = 1 TO 49 

4@ XS = X$ + CHRS (32):Y$ = Y$ + CHRS (46) 
5@ NEXT K 

6 M$ = "DUNGEON CHARACTER GENERATOR #1" + CHRS (13) 
76 MS = LEFTS (X$,5) + MS + YS 

88 TEXT : HOME : PRINT MS 

9@ PRINT “ENTER THE CHARACTER'S NAME:* 

198 PRINT : INPUT CNS 

110 HOME : PRINT M$ 

12@ INVERSE : PRINT CN$: NORMAL 


138 PRINT 
148 RESTORE 
158 PRINT 


166 FOR N= 1 TO INT (2 * RND (1) + 6) 
170 READ D$ 

18@ IF N = 6 OR N = 7 THEN PRINT 

198 PRINT DS; LEFTS (¥$,36 - POS (®)); 

20@ GOSUB 308 

210 IF N = 6 THEN PRINT RD * 10: GOTO 238 
220 PRINT RD 

238 NEXT N 

248 VTAB 21 

250 PRINT "NEED ANOTHER CHARACTER (Y/N)? "; 
268 GET K$ 

270 IF K$ = "Y" THEN 8@ 

280 IF K$ = "N" THEN END 

298 GOTO 266 

300 RD = INT (10 * RND (1) + 9): RETURN 
316 DATA STRENGTH,WISDOM, DEXTERITY, CONSTITUTION 
32@ DATA CHARISMA,GOLD PIECES,SHOE SIZE 


153 


Program 84 TIC-TAC-TOE 


The will to conquer is the first condition of victory. 
—Marshal Ferdinand Foch 


1@ REM ** TIC-TAC-TOE ** 

20 REM 

38 FOR K = 1 TO 14:M$ = M$ + CHRS (32): NEXT K 
40 MS = M$ + "TIC-TAC-TOE" + CHRS (13) 

50 FOR K = 1 TO 46:Y$ = Y$ + "“g": NEXT K 

68 MS = MS + Y$ 

70 TEXT : HOME : PRINT MS 

8@ PRINT "THINK YOU ARE PRETTY GOOD WITH THE OLD" 
98 PRINT "X'S AND O'S?" 

10@ PRINT : PRINT “WELL, TRY ME!" 

116 FOR T = 1 TO 100 

12@ IF T > 95 THEN CALL — 198 

138 NEXT T 

14@ PRINT : FLASH 

15@ PRINT "CHALLENGE": NORMAL 

16@ VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
178 GET KS 

18@ FOR K = 1 TO 8: READ C(K): NEXT K 

196 BS = CHRS (32) + CHRS$ (32) + CHRS$ (32) + CHRS$ (32) 
200 FOR Y = 1 TO 8: FOR X = 1 TO 3 

2160 READ N(Y,X): NEXT X: NEXT Y 

220 DIM A$(9): DIM W(8,3) 

238 FOR K = 1 TO 9:A$(K) = "*": NEXT K 

248 A$(1) = "O":FL = @ 

258 HOME : PRINT M$ 

268 GOSUB 738 

270 HTAB 1: VTAB 18 

288 PRINT "WHICH SQUARE DO YOU WANT (1-9)? "%; 

29@ GET KS: IF K$ < "1" OR K$ > "9" THEN CALL = 198: GOTO 298 
388 HTAB 1: VTAB 18 

318 PRINT “PLEASE WAIT ..." SPC( 48 - POS (@)) 
32@ SQ = ASC (KS) - 48 

336 IF A$(SQ) < > "*" THEN CALL - 198: GOTO 278 
34@ A$(SQ) = "x" 

3580 GOSUB 5986 

368 IF FL > @ THEN 4198 

378 GOSUB 8398 

388 GOSUB 598 

390 IF FL > @ THEN 4180 

4098 GOTO 260 

418 GOSUB 7398 

420 IF FL < > 1 THEN 468 

438 PRINT : FLASH : PRINT "I WON" 

448 FOR K = 1 T0O 3: CALL = 198: NEXT K 

45@ GOTO 530 


468 IF FL < > 2 THEN 508 
476 PRINT : FLASH : PRINT "YOU WIN" 
488 FOR K = 1 TO 4: CALL - 198: NEXT K 
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496 
568 
519 
528 
538 
548 
558 
568 
578 
588 
5998 
688 
618 
628 
639 
648 
658 
668 
678 
688 
699 
769 
716 
726 
7368 
748 
758 
766 
7768 
788 
798 
886 
819 
820 
830 
8490 
858 
868 
876 
880 
890 
988 
9198 
920 


GOTO 538 

HOME : PRINT MS: PRINT 

FOR K = 1 TO 5: CALL - 198: NEXT K 
FLASH : PRINT “IT'S A TIE GAME* 


NORMAL : PRINT 
PRINT “PLAY AGAIN (Y/N)? "; 

GET K$ 

IF K$ = "Y" THEN 238 

IF KS = "N" THEN HOME : END 

GOTO 558 

FOR Y = 1 TO 8:CR = @:XR = O:SR = @ 
FOR X = 1 TO 3:SQ = N(Y,X) 


IF AS(SQ) = "X" THEN XR = XR. + 1 
IF A$(SQ) = “O" THEN CR = CR + l 
NEXT X 

IF CR = 3 THEN FL = 1 

IF XR = 3 THEN FL = 2 

IF FL < > @ THEN 720 

FOR K = 1 TO 9 

IF AS(K) = "*" THEN SR = SR + 1 
NEXT K 

IF SR = @ THEN FL = 3 

NEXT Y 

RETURN 


HOME : PRINT MS 

VTAB 21: PRINT YS 

PRINT “O=COMPUTER" SPC( 8) "X=YOU" 

VTAB 4 

FOR C = @ TO 6 STEP 3: PRINT : PRINT : PRINT 
FOR R = 1 TO 3: PRINT BS; 
N = R + C: PRINT N; 

PRINT AS(N); 

NEXT R,C: PRINT : PRINT 

PRINT : RETURN 
CNT = 1 

IF AS(C(CNT)) = "*" THEN AS(C(CNT)) = "O": GOTO 88@ 
CNT = CNT + 1 

IF CNT > 8 THEN FL = 3: GOTO 888 

GOTO 848 
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Program 85 MAZES 


A man must have a certain amount of intelligent ignorance to get anywhere. 
—Charles F. Kettering 


16 REM ** RANDOM MAZE ** 

26 REM 

36 FOR K = 1 TO 14:M$ = M$ + CHRS$ (32): NEXT K 
46 MS = MS + "RANDOM MAZE* + CHR$ (13) 

5@ FOR K = 1 TO 40:M$ = MS + "*": NEXT K 

60 TEXT : HOME : PRINT MS 

76 PRINT "THE COMPUTER IS ABOUT TO DRAW A MAZE" 
86 PRINT "FOR YOU. YOUR OBJECTIVE IS TO DIRECT" 
96 PRINT "AN ORANGE CREATURE THROUGH THE MAZE" 
166 PRINT “AND TO A MAGENTA~COLORED GOAL BOX." 
116 PRINT : PRINT “THE TRICK IS TO DO THE JOB WITH AS FEW" 
12@ PRINT “STEPS AS POSSIBLE." 

136 VTAB 21: PRINT "ARE YOU AN EXPERT MAZE SOLVER? "; 
149 DF = 556:SCR = @ 

158 GET C$ 

166 IF CS = "Y" THEN 206 

176 IF C$ < > “N® THEN 159 

186 DF = 256 

196 IF C$ = "Y" THEN DF = 259 

286 GR: HOME 

216 PRINT TAB( 3)"<RETURN>=EXIT"; 

226 PRINT SPC( 3)"U=UP" SPC( 5) *R=RIGHT" 

236 PRINT TAB( 19)"D=DOWN" SPC( 3)*L=LEFT* 

246 ST = @ 

250 COLOR= 5: FOR K = @ TO 39 

268 VLIN @,39 AT K: NEXT K 

278 COLOR= 2 

286 FOR ND = 1 TO DF 

299 X = INT ( RND (1) * 46):¥ = INT ( RND (1) * 48) 
306 PLOT X,Y 

319 NEXT ND 

32@ COLOR= 1: PLOT 2,2 

33@ COLOR= 9: PLOT 37,37 


346 NX = 37:X = 37:Y = 37:NY = 37 

358 GET K$ 

36@ NX = X:NY = Y¥ 

37@ IF K$ = “U" THEN NY = Y - 1: GOTO 4580 
38@ IF K$ = "L" THEN NX = X —- l: GOTO 4586 
39@ IF K$ = "R" THEN NX = X + 1: GOTO 4586 
40@ IF K$ = "D" THEN NY = Y + 1: GOTO 456 


419 COLOR= CL: PLOT X,Y 

428 CL = 9 

43@ IF K$ = CHRS (13) THEN 590 

449 GOTO 358 

45@ IF NX > 39 OR NX < @ THEN 539 

46@ IF NY > 39 OR NY < @ THEN 53¢ 

478 CC = SCRN( NX,NY) 

480 IF CC = 5 OR CC = 9 THEN GOSUB 696 
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490 
560 
518 
520 
538 
540 
558 
5698 
578 
5898 
598 
6098 
618 
620 
638 
648 
658 
668 
670 
688 
690 
7008 
718 
720 
7308 
746 
758 


IF CC = 1 THEN 546 

IF CC = 5 THEN CL = 9: GOTO 418 

CALL - 198 
HF = 1: GOSUB 768 

GOTO 418 

FOR K = 1 TO 6: CALL ( - 198): NEXT K 
TEXT : HOME : PRINT MS 

PRINT "YOU DID IT IN *ST* MOVES.* 


SCR = SCR + 1 


GOTO 6886 

TEXT : HOME 

VTAB 21: PRINT “LIKE TO TRY AGAIN (Y/N)? "3 
GET K$: IF K$ = "Y¥" THEN 280 

IF K$ < > "N" THEN 6198 

HOME : PRINT M$ 

VTAB 8 

PRINT “WELL, YOU MADE IT THROUGH "SCR* MAZE"; 
IF SCR < > 1 THEN PRINT "S*; 

PRINT CHRS (46) 

END 

COLOR= 5: PLOT X,Y: COLOR= 9 
ST = ST +1 

HTAB 1: VTAB 22 

INVERSE : PRINT "SCORE2"ST;: NORMAL 

PRINT SPC( 12 - POS (8)) 

IF HF = 1 THEN HF = 9: RETURN 
X = NX:Y = NY: RETURN 
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The 
may 


10 
20 
38 
40 
5@ 
68 
70 
80 
90 
1008 
110 
120 
130 
148 
150 
160 


188 
190 
208 
210 
220 
230 
240 
258 
260 
278 
280 
298 
308 
310 
320 
3308 
348 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
4708 
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Program 86 ROBOT MAZE 


danger of the past was that men became slaves. The danger of the future is that man 


become robot. 
—Erich Fromm 


REM ** ROBOT MAZE ** 
REM 
FOR K = 1 TO 15:M$ = M$ + CHRS$ (32): NEXT K 
MS = MS + "ROBOT MAZE" + CHRS (13) 
FOR K = 1 TO 4@:LS = L$ + "=": NEXT K 
MS = M$ + L$ 
BM = 32000 
HOME : PRINT MS 
PRINT “THINK YOU HAVE TO BE INTELLIGENT TO" 
PRINT "SOLVE A MAZE? WELL, NOT SO," 
PRINT 
PRINT “THE RANDOM-MOTION ‘ROBOT!’ IN THIS PRO-* 
PRINT "GRAM PROVES THE POINT." 
PRINT : PRINT 
PRINT "ENTER A LEVEL OF MAZE COMPLEXITY FOR" 
PRINT "THE LITTLE SUCKER (1~5) "; 
GET K$ 
IF K$ < "1" OR KS > "5" THEN 178 
PRINT SPC( 1)KS$ 
DL = VAL (KS) 
VTAB 21 
PRINT "STRIKE ANY KEY TO BEGIN ..."; 
GET K$ 
GR : HOME : GOSUB 4904 
NM = @ 
VTAB 23 
PRINT "STRIKE ANY KEY TO ABORT ...."; 
CH = 37:CV = 37 
= INT (5 * RND (1)) - 2 
= INT (5 * RND (1)) ~ 2 
IF I = @ AND J = ® THEN 298 
CH + I:NV = CV + J 
SCRN( NH,NV) 
IF YY = 1 THEN 768 
IF YY > 5 THEN CALL ~< 198: GOTO 299 
IF SCRN( NH,NV) > 5 THEN 290 
G = PEEK ( ~- 16336) 
NM = NM + 1 
HTAB 1: VTAB 21 
INVERSE 
PRINT "NO. MOVES="NM 
NORMAL 
COLOR= 5: PLOT CH,CV 
COLOR= 9: PLOT NH,NV 
CH = NH:CV = NV 
K = PEEK ( - 16384): POKE —- 16368,8 
IF K > 127 THEN HOME : GOTO 798 


I 
J 


z 
= 
Hout 


480 
499 
588 
519 
520 
538 
548 
558 
568 
578 
588 
598 
680 
618 
628 
638 
648 
650 
668 
678 
688 
698 
708 
718 
720 
730 
748 
‘758 
768 
778 
788 
798 
888 
818 
820 
838 
848 
858 
860 
878 


GOTO 329 
COLOR= 5 
FOR N = 8 TO 39 
VLIN 9,39 AT N 


NEXT N 

COLOR= 15 

FOR N = @ TO 1: HLIN 8,39 AT N: NEXT N 
FOR N = 38 TO 39: HLIN 8,39 AT N: NEXT N 
FOR N = ® TO 1: VLIN 8,39 AT N: NEXT N 
FOR N = 38 TO 39: VLIN 8,39 AT N: NEXT N 
COLOR= 1 


FOR N = 2 TO 6 
VLIN 2,6 AT N 
NEXT N 
COLOR= 6 
FOR N = 1 T0 6 + 3 * DL 
w= INT (36 * RND (1)) + 2 
z= INT (36 * RND (1)) + 2 
FOR X = W TO W + 3 
FOR Y = Z TO Z + 3 
IF SCRN( X,Y) < > 5 THEN 648 
IF X = 37 AND Y = 37 THEN 6490 
NEXT Y,X 
FOR X = W TO W + 3 
FOR Y = Z TO Z + 3 
PLOT X,Y 
NEXT Y,X,N 
RETURN 
HOME 
PRINT “HE DID IT IN "NM" MOVES." 
IF NM < BM THEN BM = NM 
PRINT “BEST SO FAR IS *; 
IF BM > = 32080 THEN PRINT “NOT RELEVANT";: GOTO 828 
PRINT BM; 
PRINT CHRS$ (46) 
PRINT "WANT TO SEE IF HE CAN DO BETTER (Y/N) 2"; 
GET K$ 
IF KS = "¥" THEN TEXT : HOME : PRINT M$: GOTO 158 
IF K$ < > "N*® THEN 848 
TEXT : HOME : END 
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Program 87 ROACH RACE 


Look at that little sucker go! 


16 
26 
36 
46 


68 
76 


96 

160 
116 
126 
1368 
146 
156 
168 
178 
180 
198 
206 
218 
226 
236 
248 
258 
268 
276 
288 
296 
368 
318 
328 
338 
346 
356 
360 
376 
386 
398 
400 
416 
428 
438 
446 
4508 
468 
470 
480 


REM 
REM 


FOR N = @ TO 14:X$ = X$ + 
MS = X$ + "ROACH RACE" 


TEXT : 
FOR N = 


HOME : 


FOR T = 
NEXT Nz: PRINT 
PRINT 
PRINT 
VTAB 12 
FLASH : 
FOR N = 
PRINT * 
PRINT 
VTAB 26: 
PRINT “ROACH 
GET K$ 
GR 
COLOR= 153 
VLIN 2,35 AT 
COLOR= 34 
PLOT 9,32 
PLOT 26,32 
HOME : PRINT 
FOR T = @ TO 
HOME : PRINT 
FOR T = @ TO 
CALL - 198 
HOME ;: PRINT 
LX = 9:LY = 
FOR T = @ TO 
X = PEEK ( - 
LP = 
GOSUB 648 
IF LP < 
IF LP > 
LY = LY - 1 
IF RP < 
IF RP > 
RY = 


RY - 1 


PRINT “WARNING: ";3 
6 TO 4: 
BETTING ON ROACH RACES MAY BE* 
“ILLEGAL IN YOUR STATE." 

PRINT 


32:RX 


RND (1):RP = 


— Overheard on an Air Force base in Turkey 


** ROACH RACE ** 


CHR$ (32): NEXT N 


PRINT MS 


6 TO 39 
PRINT “#";:X = 
6 TO 56: 


PEEK ( 
NEXT T 


~ 16336) 


"YOU ARE ABOUT TO WITNESS RACES BETWEEN" 
"A PAIR OF ROACHES.": 


PRINT 


NORMAL 


CALL - 198: NEXT N 


"STRIKE ANY KEY TO SET UP THE" 
RACE TRACK ..."7 


2: VLIN 2,35 AT 18: VLIN 2,35 AT 35 


"GET READY ... 
1560: NEXT T 
"GET SET ..."” 
1506: NEXT T 


: PRINT M$ 

= 26:RY = 
50: NEXT T 
16336) 


32 


RND (1) 


-2 THEN 528 
-8 THEN 556 


-2 THEN 586 
-8 THEN 616 


IF (RY < 5) OR (LY < 5) THEN GOTO 466 


PLOT LX,LY: 
GOTO 330 
HOME : 


FLASH 


PLOT RX,RY 


PLOT LX,LY: PLOT RX,RY 


IF LY < 5 AND RY < 5 THEN PRINT 


“IT'S A TIE!!": GOTO 519 


498 
586 
516 
526 
538 
546 
558 
568 
578 
588 
598 
680 
616 
620 
630 
640 
658 
668 
678 
686 
690 
786 
716 
726 
738 
746 
758 
768 


IF LY < 5 THEN PRINT “THE ROACH ON THE LEFT WON! 1" 
IF RY < 5 THEN PRINT "THE ROACH ON THE RIGHT WON!!" 
NORMAL : GOTO 710 

LX = LX - 1 

IF LX < 3 THEN LX = 3 

GOTO 408 

LX = LX + 1 

IF LX > 17 THEN LX = 17 

GOTO 496 

RX = RX - 1 

IF RX < 18 THEN RX = 19 

GOTO 438 
RX = RX + 1 

IF RX > 34 THEN RX = 34 

GOTO 438 

REM ERASE 

COLOR= @ 

PLOT LX,LY 

PLOT RX,RY 

COLOR= 34 
X = PEEK ( - 16336) 

RETURN 

PRINT "STRIKE RETURN TO RACE AGAIN." 
PRINT “OR STRIKE THE X KEY TO DO* 
PRINT “SOMETHING ELSE ..."; 

GET A$: IF A$ = "X* THEN 760 

GOTO 268 

TEXT : HOME 
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Program 88 ROACH RACE PLUS 


It’s OK to take candy from a baby as long as you know where it has been. 
—From Modern American Wisdom (unpublished) 


Sneaking a space at the end of your name gives your roach a shot of steroids. 


1®@ REM ** ROACH RACE ** 

20 REM 

30 GOSUB 1118 

40 FOR N = @ TO 14:X$ = X$ + CHRS (32): NEXT N 

50 MS = X$ + "ROACH RACE" 

60 TEXT : HOME : PRINT M$ 

70 FOR N = @ TO 39 

80 PRINT “#";:X = PEEK ( ~ 16336) 

99 FOR T = ® TO 50: NEXT T 

106 NEXT N: PRINT 

119 PRINT "YOU ARE ABOUT TO WITNESS RACES BETWEEN" 
120 PRINT “A PAIR OF ROACHES.": PRINT 

130 VTAB 12 

140 FLASH : PRINT "WARNING:";: NORMAL 

150 FOR N = @ TO 4: CALL ~ 198: NEXT N 

160 PRINT “ BETTING ON ROACH RACES MAY BE" 

170 PRINT “ILLEGAL IN YOUR STATE." 

180 VTAB 20: PRINT “STRIKE ANY KEY TO SET UP THE BETS ..."; 
199 GET KS$ 

200 TEXT : HOME : PRINT MS 

219 FOR K = 1 TO 2 

220 PRINT : PRINT "PLAYER "K" WHAT IS YOUR NAME "; 
230 INPUT NS$(K) 

246 IF N$(K) = "" THEN 226 

250 M(K) = 100 

268 REM 

270 NEXT K 

280 HOME : PRINT M$ 

290 PRINT NS$(l)":": PRINT M1$;"LEFT." 

300 PRINT 

310 PRINT N$(2)":": PRINT M1$;"RIGHT.": PRINT 

320 FOR K = 1 TO 2: PRINT NS$(K)":" 

330 PRINT "YOU HAVE $"M(K)", PLACE YOUR BET -- $"; 
346 INPUT "";B(K) 

350 IF B(K) > M(K) THEN PRINT M2$: GOTO 330 

360 IF B(K) < = @ THEN PRINT M3$: GOTO 339 

370 NEXT K 

380 IF RIGHTS (N$(1),1) 
390 IF RIGHTS (N$(2),1) 
400 HOME : PRINT M$: PRINT 

419 PRINT "THE BETS ARE ALL IN." 

420 VTAB (20): PRINT "STRIKE ANY KEY TO BEGIN THE RACE ..." 
430 GET KS: GR 

449 HOME : PRINT : PRINT M$ 

458 COLOR= 153 

46@ VLIN 2,35 AT 2: VLIN 2,35 AT 18: VLIN 2,35 AT 35 


CHRS$ (32) THEN Fl 
CHRS (32) THEN F2 


Wott 
we 
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470 
480 
490 
508 
518 
528 
538 
548 
558 
568 
578 
588 
598 
608 
610 
628 
638 
646 
656 
660 
670 
688 
690 
708 
716 
726 
730 
740 
758 
766 
776 
788 
796 
888 
8108 
8208 
8308 
846 
8508 
866 
878 
880 
896 
980 
910 
920 
930 
948 
95a 
968 
978 
988 
998 


COLOR= 34: PLOT 9,32: PLOT 26,32 
LX = 9:LY = 32:RX = 26:RY = 32 

HOME : PRINT : PRINT "GET READY ..." 

FOR T = 1 TO 12800: NEXT T 

HOME : PRINT : PRINT "GET SET ... * 

FOR T = 1 TO 1200: NEXT T 

HOME : PRINT : PRINT MS 

CALL - 198 

FOR X = 1 TO 580: NEXT X 
CLK = PEEK ( ~— 16336):CLK = PEEK ( - 16336) 
LP = RND (1):RP = RND (1) 

GOSUB 839 

IF LP < .2 THEN 7186 

IF LP > .8 THEN 749 
LY = LY - l 

IF RP < .2 THEN 770 

IF RP > .8 THEN 88@@ 
RY = RY - 1 

IF (RY < 5) OR (LY < 5) THEN GOTO 686 

PLOT LX,LY: PLOT RX,RY 

GOTO 558 

IF LY < 5 THEN WR 
IF RY < 5 THEN WR 
GOTO 88@ 
LX = LX - l 

IF LX < 3 THEN LX 
GOTO 628 
LX = LX + 1 

IF LX > 17 THEN LX 
GOTO 626 
RX = RX - 1 

IF RX < 19 THEN RX 
GOTO 658 
RX = RX +1 

IF RX > 34 THEN RX 
GOTO 658 

IF Fl = 1 THEN LP 5 

IF F2 = 1 THEN RP = .5 : 

COLOR= @: PLOT LxX,LY: PLOT RX,RY: COLOR= 34 
CLK = PEEK ( - 16336):CLK = PEEK ( —- 16336) 
RETURN 

GET AS: IF AS = "X" THEN 960 

GOTO 420 

END 

TEXT : HOME : PRINT : PRINT MS: PRINT 

PRINT : PRINT "CONGRATULATIONS, "; 

FLASH : PRINT N$(WR): NORMAL 

FOR N = 1 T0 5: CALL —-— 198: NEXT N 

NORMAL : PRINT "YOUR ROACH WON THE RACE!!" 
PRINT : PRINT “YOUR WINNINGS SO FAR ARE: §$"; 
M(WR) = M(WR) + B(WR):LR = WR + 1 

PRINT M(WR): PRINT 

IF LR > 2 THEN LR = l 


1: GOTO 918 
2: GOTO 916 


i} 
Ww 


17 


19 


34 


1600 M(LR) = M(LR) - B(LR) 


1018 
16298 


PRINT : PRINT NS$(LR)"," 
PRINT “YOUR BANKROLL IS NOW DOWN TO $*"M(LR) 
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1830 
1040 
1058 
18606 
1070 
12880 
1890 
1108 
1118 
1120 
1130 
1140 
1158 
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IF M(LR) > 1 THEN 1660 
PRINT "YOU'RE DONE!" 
M(1) = 100:M(2) = 100 


VTAB 20: PRINT "WANT TO RACE AGAIN (Y/N)? "7; 
GET K$ 

IF K$ = "Y" THEN 280 

IF K$ < > "N” THEN 1070 

END 
M1$ = "YOUR ROACH WILL BE THE ONE ON THE * 
M2$ = "YOU CANNOT BET MORE THAN YOU HAVE! !" 
M3$ = "COME ON, NOW." + CHRS (13) 
M3$ = M3$ + "YOU HAVE TO BET SOMETHING ..." 
RETURN 


Program 89 SUBMARINE ATTACK 


Run silent. 
Run deep. 


Run to the head before you sleep. 
—Ancient submariners’ proverb 


1@ REM ** SUBMARINE COMMAND ** 

20 REM 

3@ TEXT : HOME 

4@ M$ = "SUBMARINE COMMAND* + CHRS (13) 

5@ FOR K = 1 TO 4@:LS$ = L$ + "3": NEXT K 

6@ MS = MS + LS 

76 HOME 

8@ PRINT MS 

9@ PRINT "YOU ARE A SUBMARINE COMMANDER ON A® 

180@ PRINT “SEARCH-AND-DESTROY MISSION." 

118 PRINT : PRINT "YOU HAVE 12 TORPEDOES ON BOARD AND *" 
128 PRINT "AS MANY SURFACE CHANCES TO DESTROY " 

130 PRINT “VESSELS." 

146 PRINT : PRINT "USE THE SPACE BAR TO FIRE THE TORPEDOES* 
158 PRINT "OR USE THE X KEY TO ABORT THE MISSION." 

16@ VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ..."; 


178 GET K$ 

186 HOME 

198 HIT = @:TRP = 12 
208 SH = 1:TV = 21 
210 FF = O:HF = @ 
220 SD = @:TD = @ 


238 GOSUB 880: GOSUB 859 

248 GOSUB 6980 

25@ VTAB 5S: PRINT L$ 

260 VTAB 21: PRINT L$ 

278 GOSUB 738: GOSUB 6990 

288 K = PEEK ( ~— 16384): POKE —- 16368,90 
296 IF K < 128 THEN 358 

300 IF K = 216 THEN HOME : PRINT M$: GOTO 518 
3160 IF FF = 1 THEN 360 

320 FF = 1 

338 TRP = TRP - 1 

346 GOSUB 888 

350 IF FF = @ THEN GOSUB 718: GOTO 386 
368 GOSUB 7398 

376 IF EF = 1 THEN 489 

386 IF HF = 6 THEN 2708 

398 VTAB 4: HTAB SH 

4090 FLASH 

416 PRINT "BOOM-BLANG-BLOOEY" 

420 NORMAL 

43@ CALL - 198: CALL - 198 

440 FOR T = 1 TO 400: NEXT T 

450 HIT = HIT + 1 

460 GOSUB 888 
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470 
480 
498 
508 
5108 
520 
5308 
540 
550 
560 
570 
580 
598 
600 
6108 
620 
630 
648 
658 
660 
670 
688 
690 
780 
7108 
720 
73 
748 
758 
760 
778 
788 
798 
880 
812 
822 
838 
842 
852 
860 
878 
888 
898 
988 
918 
928 
938 
940 
958 
968 
978 
9808 
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HOME : GOTO 260 

HOME : PRINT MS 

PRINT “YOU HAVE EXHAUSTED YOUR SUPPLY OF " 

PRINT "TORPEDOES." 

PRINT : PRINT "THE CURRENT MISSION IS COMPLETED WITH" 
PRINT HIT" STRIKE"; 

IF HIT < > 1 THEN PRINT "S"; 

PRINT CHRS (46) 

VTAB 21: PRINT "DO YOU WANT ANOTHER MISSION (Y/N) ?"; 
GET KS 

IF KS = "Y" THEN 180 
IF KS = "N" THEN HOME 
GOTO 568 

VTAB 4: HTAB SH 

PRINT SPC( 1)"<=>"; 
GOSUB 86¢ 

IF SD > @ THEN SD = SD - 1: RETURN 
SH = SH + l 

IF SH < 36 THEN 698 

VTAB 4: HTAB SH - 1 

PRINT SPC( 4) 


END 


SH = 1 
IF SD < = @ THEN SD = INT (4 * RND (1)) 
RETURN 
FOR T = 1 TO 10: NEXT T 
RETURN 


VTAB TV: HTAB 24 
IF TD > @ THEN TD = TD —- 1: RETURN 
PRINT "1" 
IF FF = @ THEN 858 
VTAB TV + 1: HTAB 24 
PRINT CHRS (32) 
GOSUB 860 
™T =TV-1 
IF TV > 4 THEN 858 
IF TRP < = @ THEN EF = l: CALL - 198: GOTO 870 
VTAB 5: HTAB 24: PRINT "=" 
TV = 21:FF = @: GOTO 739 
IF TD < = @ THEN TD = INT (4 * RND (1)) 
IF TV < 6 AND SH > 2@ AND SH < 24 THEN HF = 1 
RETURN 
VTAB 24: HTAB 6 
PRINT HIT" HIT®; 
IF HIT < > 1 THEN PRINT “S*; 
VTAB 24: HTAB 15 
PRINT TRP" TORPEDO"; 
IF TRP < > 1 THEN PRINT "ES"; 
PRINT " LEFT"; 
PRINT SPC( 39 — POS (®@)) 
VTAB 22: HTAB 6 
PRINT "SPACE=FIRE" SPC( 9)"X=ABORT" 
RETURN 


Program 90 MISSILE DEFENDER 


Sparkle, sparkle little missile, 

I sure do hope that you don’t fizzle, 
When we open silo’s lid, 

Built by the company with the lowest bid. 


10 
20 
38 


—From Poems on Conjecture (unpublished) 


REM ** BALLISTIC MISSILES ** 
REM 
FOR K = 1 TO 9:M$ = M$ + CHRS$ (32): NEXT K 


40 M$ = M$ + "BALLISTIC MISSILE GAME” + CHRS (13) 


58 

66 

70 

80 

99 

106 
118 
120 
138 
146 
158 
166 
178 
188 
198 
298 
218 
220 
238 
246 
2508 
269 
2768 
288 
298 
388 
3108 
328 
338 
348 
358 
3608 
378 
388 
398 
400 
4108 
420 
430 
440 


FOR K = 1 TO 46:M$ = M$ + “*": NEXT K 
TEXT : HOME : PRINT MS 
PRINT "DO YOU WANT TO SEE THE INSTRUCTIONS" 
PRINT "(Y/N)? "3 
GET K$ 
IF K$ = "N" THEN 299 
IF K$ < > “"Y¥" THEN 98 
HOME : PRINT M$ 
SPEED= 100 
PRINT “THE ENEMY HAS JUST FIRED AN ICBM THAT® 
PRINT “IS AIMED DIRECTLY AT YOUR DEFENSE SILO." 
PRINT "ENEMY UNDERCOVER AGENTS HAVE ALREADY® 
PRINT "DESTROYED THE GUIDANCE SYSTEMS IN YOUR® 
PRINT “ANTI~BALLISTIC MISSILES; BUT YOU CAN" 
PRINT "STILL AIM THEM IN THE OLD WAY --* 
PRINT “BY SETTING A FIRING ANGLE BETWEEN" 
PRINT "@ AND 99 DEGREES.": PRINT 
FLASH : PRINT “WARNING:";: NORMAL 
PRINT "IT IS INADVISABLE TO USE ANGLES" 
PRINT “OF EXACTLY @ AND 9@ DEGREES." 
PRINT : PRINT "GOOD LUCK, AND STAY CALM ..." 
SPEED= 255 
VTAB 21: PRINT “STRIKE ANY KEY TO BEGIN ..."; 
GET K$ 
TD = INT ( RND (1) * 48 + 16) 
HOME : PRINT M$ 
MR = 10 
PRINT "MISSILE RANGE: "TD" KM" 
PRINT : INVERSE 
PRINT “ENTER THE FIRING ANGLE (9-99@)"; 
NORMAL : PRINT SPC( 1) 
MR = MR ~- 1 
INPUT *";A 
IF A < @ OR A > 96 THEN 3298 
IF A = @ OR A = 99 THEN 488 
A * 3.1415926535 / 186 
198 * TAN (A) 
COS (A) * COS (A) 
D*E 
D = INT (TD - D) 


A 
D 
E 
D 
D 
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450 
460 
478 
480 
498 
588 
510 
5208 
530 
540 
558 
568 
578 
588 
598 
6008 
618 
628 
63¢ 
6498 
658 
668 
678 
680 
698 
760 
710 
720 
736 
748 
758 
768 
7708 
786 
790 
808 
8198 
820 
838 
848 
858 
8698 
878 
886 
896 
986 
916 
9206 
938 
948 
956 
968 
976 
9868 
996 


IF DD < @ THEN A$ = "OVER" 

IF DD > @ THEN AS = “UNDER* 
DD = ABS (DD) 

FOR T = 9 T0 @ STEP - 1 
CLK = PEEK ( - 16336):CLK = PEEK ( - 16336) 

VTAB 15: HTAB 5: INVERSE 

PRINT "T MINUS "T" SECONDS AND COUNTING" 

FOR W = 1 TO 500: NEXT W 

NEXT T 

VTAB 15: HTAB 5 

FLASH : PRINT "** WE HAVE LIFT-OFF ***"; 

NORMAL : PRINT SPC( 4@ - POS (6)): PRINT 

FOR K = 1 TO 5: CALL - 198: NEXT K 

IF A = ® OR A = 90 THEN 949 

FOR T = 1 TO 1000: NEXT T 

IF DD < 10 THEN 830 

HOME : PRINT MS 

PRINT “YOUR MISSILE WAS “AS*RANGE BY "DD" KM" 

IF MR < > 1 THEN 680 

PRINT : PRINT "YOU HAVE ONLY 1 MISSILE REMAINING." 
INVERSE : PRINT "THIS IS IT -- YOUR LAST CHANCE!" 
NORMAL 

GOTO 699 

PRINT : PRINT “YOU NOW HAVE "MR" MISSILES REMAINING" 
IF MR = @ THEN 796 
TD = TD - 1 


IF TD < 5 THEN 778 

PRINT : PRINT “THE ICBM IS GETTING CLOSER ..." 
FOR T = 1 TO 100:CK = PEEK ( ~ 16336): NEXT T 
FOR T = 1 TO 3060: NEXT T 


HOME : PRINT MS 

GOTO 329 

HOME : PRINT MS: PRINT 

FOR K = 1 TO 5: CALL ( - 198): NEXT K 

GOSUB 1016: VTAB 10 

PRINT "ALAS. THE ENEMY MISSILE REACHED ITS* 
PRINT "DESTINATION ~~ YOUR DEFENSE SILO." 
GOTO 898 

HOME : PRINT MS: PRINT 

FOR K = 1 TO 10: CALL - 198: NEXT K 


PRINT PRINT 

FLASH 

PRINT “YOU HAVE DESTROYED THE ICBM" 
NORMAL 


VTAB 21: PRINT “WANT TO PLAY AGAIN (Y/N)? "; 
GET K$ 

IF KS = "¥" THEN 290 

IF K$ < > "N" THEN 906 

HOME : END 

GOSUB 1616 

HTAB 1: VTAB 15 

PRINT "YOU HAVE SHOT THE MISSILE AT YOURSELF!" 
FOR K = 1 TO 5: CALL ~ 198: NEXT K 

FOR T = 1 TO 560: NEXT T 

PRINT “YOU FAIL THE EXERCISE." 


1668 GOTO 896 


168 


1619 
1929 
1936 
1948 
1959 
1869 
1979 
1988 
1099 


POKE - 16304,0: POKE 
FOR N = 1 TO 25 

POKE - 16297,0 

FOR T = @ TO 19 

X = PEEK ( - 16336) 
NEXT T 

POKE - 16298,0 

NEXT N 

TEXT : RETURN 


- 163892,98 
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Program 91 HACKERS’ AID 


Buy a modem, and the world’s your oyster. 
— Anonymous (by choice) 


Author’s note: This is a long program, I know. But it is :ure great for pulling the leg of 
some folks who know enough to be harmful, but not enough to be wise. 


16 REM ** HACKERS AID ** 

28 REM 

30 FOR K = 1 TO 14:M$ = M$ + CHRS$ (32): NEXT K 
40 M$ = MS + "HACKERS AID" + CHR$ (13) 

50 FOR K = 1 TO 4@:M$ = M$ + "—-": NEXT K 

68 FOR N = 1 TO 8: READ CNS(N): NEXT N 

76 Y$ = RIGHTS (M$,40) 

80 HOME : PRINT MS 

96 PRINT “SELECT A TARGET SYSTEM (1-7) 

166 PRINT “OR EXIT (8) 

116 PRINT 

120 FOR N= 1 T0 8 

136 PRINT TAB( 5)"("N") "CNS(N) 

1496 NEXT N 

156 PRINT x$ 

166 GET KS 

176 IF K$ < "1" OR KS > "8" THEN 160 

186 CN = VAL (KS) 

199 IF CN < 7 THEN 249 

266 IF CN = 8 THEN HOME : END 

216 PRINT X$ 

226 PRINT “ENTER NAME OF ‘OTHER' TARGET SYSTEM: " 
236 INPUT "";CNS$(7) 

246 HOME : PRINT MS 

256 PRINT “PHONE INTERFACING MODE: " 

266 INVERSE : PRINT CNS$(CN): NORMAL 

276 HTAB 1: VTAB 8 

286 PRINT “LOCATE YOUR TELEPHONE NEAR THE CRT." 
296 HTAB 1: VTAB 21 

300 PRINT “STRIKE ANY KEY WHEN READY ...."; 

318 GET KS 

326 HTAB 1: VTAB 8 

33@ PRINT “NOW TESTING LOCAL PHONE INTERFACE."; 
346 PRINT SPC( 39 ~- POS (8)) 

356 PRINT 

36@ FLASH : PRINT "PLEASE WAIT";: NORMAL 

37@ PRINT SPC( 39 - POS (@)): PRINT 

388 FOR T = 1 TO 1900 * RND (1) + 1900: NEXT T 
396 IF T < 15090 THEN 469 

460 HTAB 1: VTAB 8: CALL - 198 

410 FLASH : PRINT "BAD LOCAL CONNECTION";: NORMAL 
420 PRINT SPC( 39 - POS (8)) 

430 PRINT : PRINT "ADJUST THE PHONE'S POSITION."; 
448 PRINT SPC( 39 - POS (8)) 
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456 
466 
476 
4898 
496 
568 
516 
5208 
536 
546 
558 
5698 
578 
586 
596 
606 
6186 
626 
638 
646 
656 
668 
676 
688 
696 
780 
716 
7208 
736 
746 
756 
766 
778 
7806 
798 
880 
816 
820 
830 
840 
8508 
860 
876 
880 
898 
988 
919 
928 
939 
9498 
958 
968 
970 
988 
998 
1868 


GOTO 296 

HOME : PRINT M$ 

INVERSE : PRINT "GOOD LOCAL INTERFACE": NORMAL 
PRINT 

PRINT “SELECT NUMBER OF LONG-DISTANCE NODES" 
PRINT "(1-9)." 

HTAB 1: VTAB 18 

PRINT : PRINT “NOTE: THE LARGER THE NUMBER OF NODES,®* 
PRINT “THE SMALLER THE RISK OF A SUCCESSFUL" 
PRINT "TELEPHONE TRACE TO YOU." 

HTAB 1: VTAB 12 

GET KS 

IF KS <¢ "1" OR K$ > "9" THEN 560 
NN = VAL (KS) 

PRINT NN" NODES SELECTED." 

CALL - 958 

HTAB 1: VTAB 21 

PRINT “STRIKE ANY KEY TO BEGIN AUTOMATIC" 
PRINT “TELEPHONE NETWORKING ..."; 

GET KS 

HOME : PRINT "PHONE FREAKING FOR" 

INVERSE : PRINT CN$(CN): NORMAL 

PRINT YS 
NT = @ 

HTAB 1: VTAB 8 
X = INT (738 * RND (1)) + 258 
Y = INT (738 * RND (1)) + 258 

z= INT (8999 * RND (1)) + 1080 
CH = PEEK (36) + 1:CV = PEEK (37) + 1 
HTAB 18: VTAB 6 

PRINT "SEARCHING" SPC( 48 ~ POS (@)) 
HTAB CH: VTAB CV 

IF 2@ * RND (1) > 1 THEN 89@ 
NT = NT + 1: CALL - 198:CF = 1 

IF CF = 1 THEN INVERSE 

PRINT "("X") ®Y"—82Z* 

NORMAL 

IF CF = @ THEN 1820 
CH = PEEK (36) + 1:CV = PEEK (37) + 1 
HTAB 18: VTAB 6 

INVERSE 

PRINT "DIALING"; 

NORMAL : PRINT SPC( 48 - POS (@)) 

FOR K = 1 TO 2: FOR J = 1 TO 3 

GosuB 1118 

NEXT J 

GOSUB 1146 

NEXT K 

FOR J = 1 TO 4: GOSUB 1116: NEXT J 

HTAB 18: VTAB 6 

FLASH : PRINT "RINGING"; 

NORMAL : PRINT SPC( 49 - POS (8)) 

FOR T = 1 TO 2688 + 1908 * RND (1): NEXT T 
HTAB 18: VTAB 4 

PRINT NT" OF “NN” NODES COMPLETED.* 

CF = 6 
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1616 
1626 
1838 
1846 
1656 
1868 
1878 
1888 
1898 
1168 
1118 
1126 
1138 
1148 
1158 
1168 
1178 
1186 
1196 
1208 
1218 
1228 
1236 
1246 
1256 
1268 
1276 
1288 
1298 
1368 
1318 
1328 
1338 
1348 
1358 
1368 
1378 
1388 
1398 
1468 
1416 
1426 
1436 
1446 
1458 
1466 
1478 
1486 
1496 
1506 
1516 
1526 
1538 
1546 
1558 
1568 
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HTAB CH: VTAB CV 

IF NT > = NN THEN 1658 

IF PEEK (37) > = 19 THEN 699 

GOTO 708 

HTAB 1: VTAB 6 

INVERSE 

PRINT “NOW CONFIRMING. PLEASE WAIT ..."3 
NORMAL : PRINT SPC( 48 ~ POS (@)) 

FOR T = 1 TO 4000: NEXT T 

GOTO 1168 

FOR R = 1 TO 38 

IF R < 3 THEN G = PEEK ( —- 16336) 

NEXT R 

FOR T = 1 TO 160: NEXT T 

RETURN 

HOME : PRINT M$ 

PRINT "SUCCESSFUL “NN"-NODE LINK TO* 
INVERSE : PRINT CN$(CN): NORMAL 

PRINT : 

PRINT "DO YOU HAVE A PASSWORD FOR THE TARGET* 
PRINT "SYSTEM (Y/N)? "; 

GET K$ 

IF K$ “N" THEN 13806 

IF K$ < > "Y¥" THEN 1220 

PRINT 

PRINT : PRINT "ENTER THE PASSWORD:*" 
INPUT "";PwS 

HTAB 1: VTAB 21 

INVERSE : PRINT "NOW TESTING "PW$: NORMAL 
PRINT "PLEASE WAIT ..." 

FOR T 1 TO 2580: NEXT T 

FOR N 1 TO 4: CALL —- 198: NEXT N 
HTAB 1: VTAB 21 

FLASH PRINT “INVALID PASSWORD";: NORMAL 
PRINT SPC( 39 —- POS (@)): PRINT 

PRINT "STRIKE ANY KEY FOR AUTO-SELECT MODE ..."; 
GET K$ 

HOME : PRINT “PASSWORD AUTO~SEARCH FOR" 
INVERSE : PRINT CN$(CN): NORMAL 

PRINT Y$ 
NN = INT (18 / CN * RND (1) + 8 — CN) 
NT = @ 

IF CN > 2 THEN 14890 

PRINT "PASSWORDS FOR THIS HOST ARE CHANGED*® 
PRINT "HOURLY. THIS MAY TAKE SOME TIME." 
GOTO 1486 

FOR T = 1 TO 4606: NEXT T 

HTAB 1: VTAB 8 
INT (26 * RND (1) + 65) 
INT (26 * RND (1) + 65) 
INT (8999 * RND (1)) + 1608 
CH = PEEK (36) + 1:CV = PEEK (37) + 1 
HTAB 18: VTAB 7 

PRINT "SEARCHING" SPC( 48 - POS (@)) 
HTAB CH: VTAB CV 

IF 20 * RND (1) > 1 THEN 1598 


xX 
Y 
Z 


1570 
1586 
1598 
1608 
1610 
1628 
1638 
1648 
1658 
1668 
1676 
1680 
1698 
1706 
1718 
1720 
1738 
1748 
1758 
1768 
1778 
1788 
17906 
1886 
1818 
1820 
1838 
1848 
1858 
1868 
1878 
1888 
1898 
1986 
1918 
1926 
1938 
1946 
1958 
1968 
19786 
19886 
19986 
2600 
2610 
2626 
2836 
2040 
2650 
2060 
2878 
2089 
2890 
2108 
2110 
2128 


NT = NT + 1: CALL ~- 198:CF = 1 

IF CF = 1 THEN’ INVERSE 

IF CN > 2 THEN PRINT X"-"Y"-"Z: GOTO 1610 
PRINT CHRS (X); CHRS (Y¥)":"Z: GOTO 1610 
NORMAL 

IF CF = @ THEN 1758 
CH = PEEK (36) + 1:CV = PEEK (37) + 1 
HTAB 18: VTAB 7 

INVERSE 

PRINT “TRYING"; 

NORMAL : PRINT SPC( 48 - POS (@)) 

FOR T = 1 TO 3000: NEXT T 

HTAB 18: VTAB 7 

INVERSE : PRINT "CONFIRMING"; 

NORMAL : PRINT SPC( 40 ~ POS (8)) 

FOR T = 1 TO 2000 + 100@ * RND (1): NEXT T 
CF = @ 

HTAB CH: VTAB CV 

IF NT > = NN THEN 1780 

IF PEEK (37) > 2 19 THEN 1488 

GOTO 1490 

HTAB CH: VTAB CV: INVERSE 

PRINT "PASSWORD FOUND AND CONFIRMED." 
NORMAL : HTAB 1: VTAB 21 

PRINT "STRIKE ANY KEY TO CONTINUE ... "3 
GET K$ 

HOME : PRINT MS 

PRINT "LINK IS ESTABLISHED FOR* 

INVERSE : PRINT CN$(CN): NORMAL 

HTAB 1: VTAB 20 

PRINT "UNAUTHORIZED ACCESS IS ILLEGAL. ARE YOU" 
PRINT “SURE YOU WANT TO PROCEDE (Y/N)? "; 
GET K$ 

IF KS = "N* THEN 89 

IF K$ < > "Y" THEN 1890 

SPEED= 100 

FOR N = 1 TO 21: PRINT CHRS$ (32): NEXT N 
HOME 

PRINT CNS$(CN): PRINT 

PRINT PWS" FILE "; 

PRINT INT (1008 * RND (1)) / 1000 
PRINT : PRINT "SYS GBAK 144." 

PRINT “AUTHORIZED PERSONNEL ONLY* 

PRINT : PRINT 

SPEED= 255 

GOTO 2148 

IF 4 * RND (1) > 1 THEN 2146 

HOME : PRINT MS 

FLASH : PRINT *WARNING!": NORMAL 

FOR N = 1 TO 8: CALL -—-— 198: NEXT N 
PRINT “TELEPHONE TRACE IS ON ..."* 

FLASH 

PRINT *"ABORT QUICKLY!" 

NORMAL 

HTAB 1: VTAB 21 

PRINT "STRIKE THE X KEY TO ABORT ..."; 
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2138 
21498 
2158 
2168 
2178 
2188 
2190 
22008 
22198 
2228 
2230 
2248 
2256 
2268 
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GET K$: GOTO 8@ 

FOR N = 1 TO 506 * RND (1) + 500 
PRINT CHRS ( PEEK (1960 + N)); 
NEXT N 

INVERSE : PRINT “PARITY ERROR": NORMAL 
GOTO 2030 

DATA DEPARTMENT OF DEFENSE 

DATA INTERNAL REVENUE SERVICE 
DATA IBM CORPORATION 

DATA GENERAL MOTORS CORPORATION 
DATA AMERIBANK 

DATA STANFORD UNIVERSITY 

DATA OTHER (TO SPECIFY) 

DATA EXIT THE PROGRAM 


Program 92 SEA BATTLE 


Dum-ta-da-dummmm 
Ta-da-ta-dum-dum 
Tee-dee-ta-dum 


18 

28 

38 

46 

58 

608 

78 

86 

98 

188 
1196 
128 
130 
146 
158 
168 
176 
188 
1908 
208 
2198 
2208 
236 
240 
256 
268 
2708 
288 
298 
368 
3108 
3208 
338 
346 
358 
360 
378 
386 
396 
400 
410 
428 
4398 
446 
450 
460 


—From the theme of Victory at Sea 


REM ** BATTLESHIP GAME ** 
REM 
FOR K = 1 TO 23:H$ = H$ + CHRS$ (32): NEXT K 


H$ = H$ + "A BCODEFG H* 


DIM CMP$(10,18): DIM PMP$(19,19) 
MS = LEFTS (H$,15) 
MS = M$ + "BATTLESHIP" + CHRS$ (13) 


FOR K = 1 TO 39:Y$ = Y$ + "*": NEXT K 


MS = MS + YS$ 


TEXT : HOME ;: PRINT MS: PRINT 

PRINT “WANT TO SEE THE INSTRUCTIONS (Y/N) ?"; 

GET K$ 

IF K$ = “"N" THEN 329 

IF K$ < > “Y" THEN 128 

HOME : PRINT MS: PRINT 

SPEED= 88 

PRINT "THIS IS A COMPUTERIZED VERSION OF THE" 
PRINT "BOARD GAME, ‘BATTLESHIP. '" 

PRINT : PRINT "YOUR OBJECTIVE IS TO SINK THE COM-" 
PRINT *PUTER'S SHIPS BY FIRING AT COORDINATES" 
PRINT "ON A MAP.": PRINT 

PRINT “BUT THERE ARE A COUPLE OF CATCHES." 

PRINT "FIRST, YOU DON'T KNOW THE COORDINATES" 
PRINT “OF THE ENEMY SHIPS. AND SECOND, THE" 
PRINT “ENEMY IS FIRING BACK AT YOU!": PRINT 
PRINT “YOU AND THE COMPUTER BOTH HAVE 5 SHIPS" 
PRINT “AT THE OUTSET. THE FIRST TO SINK ALL" 
PRINT "OF THE OPPONENT'S SHIPS WINS THE GAME." 
SPEED= 255 

VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
GET KS$ 
ES = "4+":PS = 5:CS = 5 

FOR R = 1 TO 8: FOR C = 1 TO 8 
PMPS$(R,C) = E$:CMP$(R,C) = ES$ 
NEXT C: NEXT R 

FOR K = 1T0 5 


R = INT ( RND (1) * 8 +) 
C = INT ( RND (1) * 8 +1) 
PMP$(R,C) = "*" 

NEXT K 

FOR K = 1 TO 5 
R = INT ( RND (1) * 8 + 1) 
C = INT ( RND (1) * 8 + 1) 
CMP$(R,C) = "*" 

NEXT K 


HOME : PRINT M$ 
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476 
486 
496 
588 
516 
5208 
5306 
548 
5508 
568 
578 
588 
598 
606 
618 
626 
638 
640 
656 
668 
670 
688 
698 
706 
718 
726 
738 
748 
756 
766 
776 
786 
796 
860 
816 
826 
836 
846 
850 
8608 
8708 
886 
8908 
968 
910 
9208 
936 
9406 
956 
968 
978 
986 
998 
10608 
106198 
1628 
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PRINT HS 
VTAB 21: PRINT Y$ 
PRINT "*=YOUR GOOD SHIPS" SPC( 4) 
PRINT "%=YOUR DEAD SHIPS" SPC( 4) 
HTAB 1: VTAB 23: PRINT “+=UNTRIED AREAS*® 
VTAB 23: HTAB 22: PRINT "<RETURN>=EXIT" 
VTAB 5 
FOR R = 1 TO 8: HTAB 22: PRINT R; 
FOR C = 1 TO 8 
HTAB C * 2 + 22 
PRINT PMP$(R,C) + CHRS (32);: NEXT C 
PRINT 
NEXT R 
VTAB 6: PRINT "COMPUTER HAS" 
PRINT : PRINT CS" SHIP"; 
IF CS < > 1 THEN PRINT "S"; 
HTAB 1: VTAB 18 
PRINT "YOU HAVE" 
PRINT : PRINT PS" SHIP"; 
IF PS < > 1 THEN PRINT "S*"; 
HTAB 1: VTAB 15 
PRINT "WHERE DO YOU WISH TO FIRE?" 
VTAB 17: PRINT “ROW (1-8)"; 
GET K$ 
IF K$ = CHR$ (13) THEN 1120 
IF K$ < "1" OR K$ > "8" THEN 708 
PR = VAL (KS) 
PRINT PR 
HTAB 15: VTAB 17 
PRINT "COLUMN (A-H)"; 
GET K$ 
IF K$ = CHR$ (13) THEN 1120 
IF KS < "A® OR K$ > "H" THEN 778 
PCS = K$ 
PRINT PCS 
PC = ASC (PCS) —- 64 
IF PC > 8 OR PC < 1 THEN 750 
IF PMP$(PR,PC) = "** THEN 1130 
IF PMPS(PR,PC) < > "+" THEN 889 
PMP$(PR,PC) = CHRS$ (32) 
CALL ~ 198 
IF CMPS$(PR,PC) < > "*" THEN 919 
PMPS(PR,PC) = "#":CMP$(PR,PC) = "4":CS = CS - 1 
GOSUB 976 
cc = INT ( RND (1) * 8 + 1):CR = INT ( RND (1) * 8 + 1) 
IF PMP$(CC,CR) < > "*" THEN 960 
PMP$(CC,CR) = "9" 
PS = PS - 1 
GOSUB 978 
GOTO 460 
FOR K = 1 T0 5 
CALL ( - 198) 
NEXT K 
IF PS > 6 THEN 1670 
HOME : PRINT M$ 
PRINT "*** SORRY... #88" 


1838 
10840 
1058 
169698 
1878 
1888 
1898 
11608 
11186 
1126 
1138 
1146 
1158 
1168 
1178 
1188 


PRINT 
PRINT 
GET KS: 


PRINT "I JUST SANK YOUR LAST BATTLESHIP" 
PRINT “WOULD YOU LIKE TO PLAY AGAIN (Y OR N)" 
IF K$ = "N*" THEN 1120 


IF K$ = *Y" THEN 320 

IF CS > @ THEN 1119 
HOME : PRINT MS 

PRINT “*** YOU WIN #22" 
GOTO 19496 


RETURN 
HOME : 


END 


PS = PS - 1: GOSUB 976 
POKE 36,18: PRINT "YOU JUST SANK* 
POKE 36,18: PRINT “YOUR OWN SHIP* 
FOR T = 1 TO 1060: NEXT T 
PMP$(PR,PC) = "%" 


GOTO 888 
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Program 93 MINER 


Oh, ----! So much for the canary! 


16 
20 
38 


—From A Treasury of Famous Last Words 


REM ** COAL MINER ** 
REM 
FOR K = 1 TO 15:M$ = M$ + CHRS$ (32): NEXT K 


46 MS = MS + "COAL MINER" + CHRS (13) 


56 

60 

70 

80 

98 

108 
118 
126 
136 
148 
158 
168 
178 
188 
198 
286 
218 
228 
2308 
248 
256 
260 
278 
288 
298 
3808 
318 
326 
338 
346 
358 
368 
378 
386 
398 
400 
410 
420 
430 
440 
456 
468 
478 
486 
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FOR K = 1 TO 40:M$ = MS + "*": NEXT K 
TEXT : HOME : PRINT MS 
PRINT "YOU ARE A MINER WHO IS LOST IN A DEEP* 
PRINT "MINE. IT IS TOO DARK TO SEE ANYTHING," 
PRINT "BUT YOU ARE AN EXPERT DIGGER. YOU CAN" 
PRINT "DIG THROUGH ANYTHING BUT BIG ROCKS." 
PRINT : PRINT "OBVIOUSLY, YOUR OBJECTIVE IS TO DIG" 
PRINT "YOUR WAY OUT OF THE MINE, AND TO DO THE" 
PRINT "JOB AS EFFICIENTLY AS POSSIBLE." 
VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
GET KS 
HOME : PRINT M$ 
DIM R(39,39) 
SCR = O:ST = @ 


GOSUB 686 

FOR K = 1 TO 406 

X = INT ( RND (1) * 39) 
Y = INT ( RND (1) * 39) 
R(X,¥) = 57 

NEXT K 

R(2,2) = @ 


GR : COLOR= 8 
FOR Y = 6 TO 39 
HLIN 86,39 AT Y 
NEXT Y 
HOME : PRINT TAB( 3)"<RETURN>=EXIT"; 
PRINT SPC( 3)"U=UP" SPC( 5)"R=RIGHT" 
PRINT SPC( 3)*"STEPS="ST; 
PRINT TAB( 19)"D=DOWN" SPC( 3) "L=LEFT" 
COLOR= 2: PLOT 37,37 
X = 37:NX = 37:Y = 37:NY = 37 
COLOR= 5: PLOT 2,2 
GET KS 
ST = ST +1 
VTAB 22: HTAB 3 
INVERSE : PRINT ST" STEPS";: NORMAL 
IF K$ < > "U" THEN 430 
NY = NY - 1: GOTO 5186 
IF K$ < > "D" THEN 45@ 
NY = NY + 1: GOTO 518 
IF K$ < > "L" THEN 476 
NX = NX ~ 1: GOTO 51¢@ 
IF K$ < > "R®" THEN 499 
NX = NX + 1: GOTO 518 


4998 
588 
518 
528 
539 
5498 
550 
568 
578 
586 
598 
688 
618 
620 
638 
648 
658 
668 
678 
688 
690 
708 
7108 
720 
730 
740 
758 
769 
778 


796 
880 
810 
828 
830 
840 
856 
860 
878 
880 
898 
988 
918 
920 
9308 


IF K$ < > CHRS$ (13) THEN 370 

TEXT : HOME : PRINT M$: GOTO 88@ 

IF NX < = 38 AND NY < = 38 THEN 530 
NY = Y:NX = X:ST = ST - 1: GOTO 379 

IF NX > = @ AND NY > = @ THEN 55@ 
NY = Y:NX = X:ST = ST ~ 1: GOTO 370 

IF R(NY,NX) < > 57 THEN 649 
ST = ST- 1 

VTAB 22: HTAB 3: INVERSE 

PRINT "#$%&@ - ROCK!!"%: NORMAL 

CALL ~ 198 

FOR T = 1 TO 490: NEXT T 

VTAB 22: HTAB 3: PRINT "STEPS="ST; 

PRINT SPC( 7) 
NY = Y:NX = X: GOTO 379 

COLOR= @: PLOT X,Y 

COLOR= 2: PLOT NX,NY 
X = NX:Y = NY: IF X = 2 AND Y = 2 THEN 746 
GOTO 376 

PRINT “PLEASE WAIT: I'M SETTING UP THE MINE.* 
FOR X = @ TO 39: FOR Y = @ TO 39 
R(X,Y) = @ 

NEXT Y: NEXT X 

PRINT : PRINT "ALMOST DONE." 

RETURN 

TEXT : HOME : PRINT MS 

PRINT “AHH, FRESH AIR!" 

FOR K = 1 TO 5: CALL ( —- 198): NEXT K 
PRINT : PRINT "YOU DID IT IN "ST* STEPS." 
FOR K = 1 TO 108 
X = ( RND (1) * 39):¥ = INT ( RND (1) * 39) 
R(X,Y) = 57: NEXT K 
ST = 6 

VTAB 21: PRINT “WANT TO PLAY AGAIN (Y/N)? "; 
SCR = SCR + 1 

GET K$: IF K$ = "Y*" THEN 260 

IF KS < > "N*® THEN 846 

HOME : PRINT MS 

IF SCR = 1 THEN PRINT “YOU MADE IT THROUGH THE MINE": GOTO 939 
PRINT "YOU MADE IT OUT OF "SCR® MINE"; 

IF SCR < > 1 THEN PRINT "S*"; 

PRINT CHRS (46) 

IF SCR < 4 THEN 930 

PRINT : PRINT "THAT'S PRETTY GOOD." 

END 


a 
Zz 
iawn it 
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Program 94 ASTEROIDS 


It may be that the race is not always to the swift, nor the battle to the strong—but that’s 
the way to bet. 


10 
20 
30 


1898 
198 
280 
2198 
226 
238 
248 
2598 
2698 
278 
2898 
298 
3808 
316 
326 
336 
3498 
3508 
368 
376 
388 
398 
400 
4108 
426 
438 
448 
456 
466 
470 
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—Damon Runyon 


REM ** ASTEROIDS ** 
REM 
FOR K = 1 TO 15:M$ = M$ + CHR$ (32) 


MS = M$ + "ASTEROIDS" + CHR$ (13) 


FOR K = 1 TO 40:M$ = M$ + CHRS (42): NEXT K 
TEXT : HOME : PRINT M$ 

PRINT "YOUR MISSION IS TO NAVIGATE YOUR CRAFT" 
PRINT "THROUGH AN ASTEROID BELT. YOU ARE" 
PRINT “ABLE TO MOVE ONLY UP AND DOWN ~~ AND" 
PRINT "EACH WAVE OF ASTEROIDS BECOMES MORE" 
PRINT "DEADLY." 

PRINT : PRINT 

PRINT “SELECT YOUR PILOT RANKING:": PRINT 
PRINT TAB( 5)"(B)EGINNER" 

PRINT TAB( 5)"(E)XPERT* 

GET DLS$ 
IF DL$ 
IF DLS 
GOTO 169 

VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
GET KS$ 

HOME : GR 

PRINT : PRINT MS 

PRINT "U=UP" SPC( 4) "D=DOWN"; 

HTAB 20: PRINT "ANY KEY TO START"; 

PH = @ 

COLOR= 25 

D= 96 

FOR C = 1 TO 39 

R = INT ( RND (1) * 38) 

PLOT C,R 
R = INT ( RND (1) * 46) 

PLOT C,R 

NEXT C 

COLOR= @:C = 2:R = 16: PLOT C,R 
R = 16: COLOR= 170 
C = l: PLOT C,R 

COLOR= @:C = 2: PLOT C,R 

IF PH = 6 THEN GET KS$:PH = 1 

HTAB 20: PRINT SPC( 39 ~ POS (8)) 

FOR C = 2 TO 39 

COLOR= @: PLOT 1,R 

COLOR= 178 

FOR XX = 1 TO 2:CLK = PEEK ( - 16636): NEXT XX 
IF SCRN( C,R) < > @ THEN 599 

PLOT C,R 

POKE — 16368, 


156: GOTO 268 
75: GOTO 260 


"B" THEN DL 
"E* THEN DL 


4890 
498 
586 
518 
526 
5368 
549 
558 
568 
576 
588 
5968 
688 
618 
626 
636 
646 
656 
668 
678 
688 
698 
786 
716 
728 
736 


FOR T = 1 TO DL: NEXT T 
_COLOR= @: PLOT C,R 


K = PEEK ( - 16384) 


IF K = 196 THEN R 2 
IF K = 213 THEN R = 
NEXT C 

COLOR= 25 

FOR C = 1 TO 39:R = INT ( RND (1) * 48) 
PLOT C,R 

NEXT C 
D = D + 16689: GOTO 368 

HTAB 15: VTAB 22 

FLASH : PRINT “COLLISION®";: NORMAL 

FOR T = 1 TO 188 

IF T / 18 = INT (T / 186) THEN CALL —- 198 
NEXT T 

TEXT : HOME : PRINT M$ 
D= D+ 256 * C 

PRINT *YOU TRAVELED "D* KILOMETERS® 

PRINT “BEFORE LOSING YOUR HEALTH.” 

FOR T = 1 TO 1568: NEXT T 

VTAB 21 

PRINT “WOULD YOU LIKE TO TRY AGAIN (Y/N)? *; 
GET K$: IF K$ = "Y¥* THEN 228 

IF K$ < > "N" THEN 716 

HOME : END 


+ 


R 1 
R 1 
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Program 95 WILDCATTER 


Thar’s oil in them thar hills. 


276 
280 
298 
386 
3198 
326 
338 
340 
358 
368 
378 
388 
396 
466 


426 
436 
446 
450 
460 
470 
480 
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— Anonymous 


REM ** WILDCATTER ** 
REM 
FOR K = 1 TO 15:M$ = M$ + CHRS (32): NEXT K 
MS = MS + "WILDCATTER" + CHRS (13) 
FOR K = 1 TO 40:M$ = M$ + "*": NEXT K 
TEXT : HOME : PRINT M$ 
PRINT "YOU ARE AN OLD~-WEST KIND OF OILMAN WHO" 
PRINT *IS HOPING TO GET RICH BY DRILLING FOR" 
PRINT “OIL AT HIGHLY SPECULATIVE LOCATIONS." 
PRINT : PRINT "A BENEVOLENT BENEFACTOR HAS STAKED YOU" 
PRINT “TO THE TUNE OF $2~-MILLION.” 
PRINT : PRINT "YOU HAVE FREE ACCESS TO 168 DIFFERENT*® 
PRINT "DRILLING LOCATIONS. THE DRILLING COST* 
PRINT “IS ON THE ORDER OF $59 PER FOOT." 
VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN THE VENTURE ..."; 
GET K$ 
HOME : PRINT MSV 


PRINT "PLEASE WAIT A MOMENT ..." 
DIM L(188) 
FOR K = 1 TO 106 
L(K) = INT ( RND (1) * 18666 + 4800) 
NEXT K 
AC = 2660066 
R= 6 


HOME : PRINT MS 

PRINT "SELECT A DRILLING LOCATION (1-16@):" 
PRINT : INPUT PL 

PL = INT (PL) 


IF PL > @ AND PL < 101 THEN 310 

PRINT "@ THRU 100, PLEASE. TRY AGAIN ...": GOTO 278 
D = L(PL) 

HOME : PRINT M$: PRINT 
NC = AC 


VTAB 6: PRINT "YOU HAVE $*"NC 

VTAB 16: PRINT "YOUR WELL IS "R" FEET DEEP" 

FOR T = 1 TO 400: NEXT T 
CLK = PEEK ( - 16336):CLK = PEEK ( - 16336) 
R = R + 500:WC = R * 56 

IF R > = 19000 THEN 569 
NC = AC - WC 

IF R < D THEN 348 

HOME : PRINT MS 

FOR K = 1 TO 7: CALL ( - 198): NEXT K 

PRINT : PRINT "*** YOU JUST STRUCK OIL ***" 
WD = 190000 * INT (8 * RND (1) + 7) 

PRINT : PRINT "YOU MADE $*WD" DOLLARS FROM THE WELL" 
AC = NC + WD 

L(PL) = 11000 


490 
500 
510 
5208 
530 
540 
550 
568 
570 
580 
5968 
600 
6108 
620 
630 
640 
658 
668 
678 
680 


PRINT : PRINT "YOU NOW HAVE $"AC 

FOR T = 1 TO 580: NEXT T 

VTAB 21: PRINT “WANT TO TRY AGAIN (Y/N) "; 
GET K$ 

IF K$ = "Y¥" THEN 24@ 

IF K$ < > “N" THEN 526 


HOME : END 
HOME : PRINT MS 
FOR K 1 TO 3: CALL ( — 198): NEXT K 


=z 
PRINT : PRINT “YOU HAVE YOURSELF A DRY HOLE* 
PRINT : PRINT “YOU LOST $"wC" ON THIS." 


AC = AC - WC 


PRINT : PRINT "YOU STILL HAVE $"AC 

IF AC < @ THEN 6486 

GOTO 516 

PRINT : PRINT “YOU HAVE GONE BROKE, AND YOUR BENE-" 
PRINT “FACTOR IS LOOKING FOR YOU. I STRONGLY" 

PRINT “SUGGEST YOU AVOID THE OIL BUSINESS" 

PRINT “IN THE FUTURE." 

VTAB 21: END 
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Program 96 MOON LANDER - 


Hey, buddy. Spare a quarter for a game? 
—Overheard outside a video arcade in Cincinnati 


1@ REM *#* LUNAR-LANDER GAME ** 
20 REM 

30 FOR N = @ TO 13:X$ = X$ + CHRS$ (32): NEXT N 

40 FOR N = @ TO 39:Y$ = Y$ + “$": NEXT N 

56 m$ = X$ + “LUNAR LANDER" + CHRS$ (13) + Y¥$ 

6@ TEXT : HOME : PRINT M$ 

708 SPEED= 998 

88 VTAB 4: PRINT "YOU ARE THE PILOT OF A LUNAR-LANDER® 
99 PRINT “MODULE. YOUR OBJECTIVE IS TO LAND THE" 

1008 PRINT "MODULE AND CREW SAFELY ON THE SURFACE" 
110 PRINT "OF THE MOON.": PRINT 

120 PRINT “YOU MUST RETRO~FIRE YOUR ENGINES IN" 

130 PRINT “ORDER TO CONTROL YOUR RATE OF DESCENT." 
14@ PRINT “THERE IS, OF COURSE, THE RISK OF CRASH-" 
15@ PRINT "ING; EITHER BECAUSE THE RATE OF DESCENT* 
166 PRINT “*IS TOO HIGH, OR YOU'VE BURNED ALL THE® 
17@ PRINT “AVAILABLE FUEL.": PRINT 

189 PRINT "THREE THINGS CAN HAPPEN TO YOU, AND* 

19@ PRINT “TWO OF THEM ARE BAD. KEEP COOL, AND" 

208 PRINT “CONTROL THE MODULE BY ENTERING BURN~* 

218 PRINT "RATE VALUES. INCIDENTALLY, USING": INVERSE : PRINT "BURN "; 
22@ PRINT “RATES OF ";: FLASH : PRINT "75"; 

230 NORMAL : INVERSE : PRINT * OR MORE DESTROYS THE" 
248 PRINT "“ENGINES!!": NORMAL : PRINT 

250 VTAB 22: SPEED= 255 


268 PRINT 

270 PRINT “STRIKE ANY KEY TO BEGIN ..."; 
288 GET K$ 

298 AS = “ALTITUDE:" 

380 S$ = "SPEED:"* 

310 F$ = “FUEL:" 

328 BS = “BURN RATE:* 

330 R$ = "RISING" 

340 D$ = "DESCENDING" 


350 A = 500:F = 250:S = 50:BR = @ 
360 I$ = LEFT$ (x$,12) 

378 I$ = I$ + “INSTRUMENT PANEL" + CHRS (13) 
38@ FOR K = 1 TO 40:I$ = I$ + "=": NEXT K 


396 HOME 

490 VTAB 4: PRINT I$ 

418 PRINT : PRINT TAB( 4)AS,A 
420 PRINT : PRINT TAB( 4)FS,F 
436 PRINT : PRINT TAB( 4)S$,S 
448 PRINT : PRINT TAB( 4)BS$,BR 


45@ IF F < = @ THEN BR = @: GOTO 538 
468 PRINT : PRINT *YOU ARE "; 

470 IF S > = @ THEN PRINT D$ 

480 IF S < @ THEN PRINT RS 
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498 
586 
519 
526 
539 
548 
55@ 
568 
578 
588 
598 
696 
616 
629 
6398 
640 
658 
669 
678 
688 
690 
708 
716 
720 
739 
748 
750 
766 
776 
780 
798 
800 
816 
826 
830 
840 
858 
8698 
878 
889 
8998 
989 
919 
926 
936 
948 
959 
960 
9796 


FOR K = 1 TO BR * 5:CK = PEEK ( — 16336): NEXT K 
VTAB 26: INPUT "ENTER BURN RATE “;BR 

IF BR < @ THEN CALL —- 198: GOTO 586 

IF BR > #= 75 THEN 7890 
F = F - BR: IF F < # @ THEN 840 
S§=S$& + 1@6- BRA = A-S 

IM = (A +S * 2+ 18) / 18 

IF A> = @ THEN 649 

CALL - 198: CALL - 198 

HOME ;: PRINT M$ 

PRINT : PRINT : PRINT : INVERSE 

PRINT *YOU HAVE BURIED THE SHIP "IM" METERS* 
PRINT “INTO THE LUNAR SURFACE." 

NORMAL 

GOTO 718 

IF IM > 5 THEN 396 

HOME : PRINT MS 

VTAB 15: FLASH : PRINT "** YOU HAVE LANDED THE SHIP **#* 
FOR N = 1 TO 19 

CALL - 198 

FOR T = 1 TO 298: NEXT T 

NEXT N: NORMAL 

FOR N = 1 TO 3600: NEXT N 

HOME : PRINT MS 

PRINT *DO YOU WANT TO TRY AGAIN (Y/N)? "3 

GET KS 

IF K$ = "N" THEN HOME : END 

IF K$ = "Y" THEN 258 

GOTO 749 

HOME : GOSUB 8986 

HOME : PRINT MS: PRINT 

PRINT : PRINT “BURN RATE IS TOO HIGH." SPC( 4) 
PRINT : FLASH : PRINT "THIS HAS COMPLETELY DESTROYED YOUR 
NORMAL : PRINT : PRINT 

GOTO 718 

PRINT ; FLASH ; PRINT “YOU HAVE EXHAUSTED YOUR FUEL SUPPLY 
NORMAL 

FOR T = 1 TO 169: NEXT T 

FOR CK = 1 TO 3: CALL ~- 198: NEXT CK 

GOTO 548 

POKE - 16364,8: POKE - 16362,8 

FOR N = 1 TO 28 

POKE - 16297,98 

FOR T = 8 TO 10 
CLK = PEEK ( ~ 16336) 

NEXT T 

POKE - 16298,86 

NEXT N 

TEXT : RETURN 
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Program 97 STOCK MARKET 


“Dow Jones is up today.” 
“Oh, yeh? How long was he in bed?” 
—Overheard at a bus stop in Miami Beach 


16 REM ** STOCK MARKET ** 

20 REM 

36 FOR K = 1 TO 14:M$ = M$ + CHRS$ (32): NEXT K 
40 MS = M$ + "STOCK MARKET" + CHRS$ (13) 

5@ FOR K = 1 TO 40:M$ = M$ + “*": NEXT K 

60 TEXT : HOME : PRINT M$ 

70 PRINT : PRINT : PRINT "THIS IS A ONE PLAYER GAME WHERE YOU * 
86 PRINT "BUY AND SELL STOCKS IN ORDER TO MAKE" 
96 PRINT "MONEY. YOU START WITH $100,000. THERE" 
100 PRINT “IS A SELECTION OF 1@ STOCKS THAT YOU " 
11@ PRINT “CAN INVEST IN. YOU CAN BUY OR SELL AS" 
120 PRINT "MANY SHARES AS YOU HAVE MONEY FOR." 
136 PRINT "YOU CAN TELL HOW THE MARKET IS DOING" 
140 PRINT "BY WATCHING THE TV REPORTS. 

15@ VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ...%; 
166 GET K$ 

176 DIM N$(16): DIM P(18) 

186 AC = 190000:NW = AC 

198 FOR K = 1 TO 16 

206 READ N$(K): READ P(K) 

216 NEXT K 

220 HOME : PRINT MS 

230 FOR K = 1 TO 19 

249 HTAB 3: PRINT K; 

250 HTAB 6: PRINT N$(K); 

260 HTAB 31: PRINT P(K) 

270 NEXT K 

288 PRINT 

299 INVERSE : PRINT "YOUR NET WORTH IS $"NW 

300 NORMAL : PRINT 

310 PRINT “WANT A PORTFOLIO REPORT (Y/N)? "; 

320 GET K$ 

330 IF K$ = "N" THEN 420 

340 IF K$ < > "Y¥" THEN 320 

350 HOME : PRINT MS 

368 FOR K = 1 TO 1@ 

370 PRINT K; 

38@ HTAB 6: PRINT NS$(K); 

398 HTAB 31: PRINT H(K) 

400 NEXT K 

410 GOSUB 114@ 

428 GOSUB 1210 

430 PRINT "DO YOU WISH TO BUY ANY STOCKS (Y/N)? "; 
440 GET K$ 

458 GOSUB 1218 

460 IF K$ = "N* THEN 679 

470 IF KS < > "Y¥" THEN 426 
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48@ GOSUB 1138 

498 GOSUB 1210 

508 PRINT “WHICH ONE (1~10)? "; 

51@ INPUT "";L 

520 IF L <1 ORL > 1@ THEN 499 

538 GOSUB 1216 

549 PRINT "HOW MANY SHARES OF §*"L" AT $*"P(L) 
558 INPUT W 

568 R = P(L) * W 

578 PRINT "THE PRICE IS $*"R 

589 FOR T = 1 TO 1900: NEXT T 

599 IF R < AC THEN 639 

608 PRINT “YOU DON'T HAVE ENOUGH MONEY* 

61@ FOR T = 1 TO 1006: NEXT T 

628 GOTO 42¢ 

63@ AC = AC -R 

648 GOSUB 1148 

65@ H(L) = H(L) + W 

668 GOSUB 1219 

67@ PRINT "DO YOU WISH TO SELL ANY SHARES (Y/N)? "; 
68@ GET K$ 

698 IF K$ = "N" THEN 858 

700 IF K$ < > "Y" THEN 680 

718 GOSUB 1219 

72@ PRINT “WHICH STOCK (1~19)? *; 

738 INPUT "";D 

740 IF D> 18 ORD < 1 THEN 728 

758 GOSUB 1210 

768 PRINT "YOU HAVE “H(D)" SHARE"; 

770 IF H(D) < > 1 THEN PRINT *S"; 

788 PRINT "® OF STOCK #"D 

798 PRINT "HOW MANY DO YOU WISH TO SELL? "; 
808 INPUT "";Q 

810 IF Q< = H(D) THEN 849 

820 PRINT "YOU DON'T HAVE THAT MANY SHARES* 
838 GOTO 678 

849 AC = AC + P(D) * Q:H(D) = H(D) - Q 

858 GOSUB 1140 

868 PRINT "WANT TO QUIT NOW (Y/N) ?" 

878 GET K$: IF K$ = "N®*® THEN 929 

889 IF K$ < > "¥*" THEN 879 

898 HOME : PRINT M$: PRINT : PRINT 

980 PRINT "YOUR NET WORTH IS: "NW 

919 HOME : END 

92@ PRINT : PRINT "STAY TUNED FOR ANOTHER MARKET REPORT*® 
938 FOR T = 1 TO 500 

949 IF RND (1) > .3 THEN CLK = PEEK ( - 16336) 
950 NEXT T 

96@ CALL ( ~ 198): CALL ( — 198) 

978 FOR K = 1 TO 18 

988 P(K) = INT ( RND (1) * 2 * P(K)) +5 
998 NEXT K 

1000 NW = AC 

1016 FOR K = 1 TO 10:NW = NW + H(K) * P(K): NEXT K 
1820 GOTO 220 

1930 DATA AMERICAN GONG TELEPHONE, 70 
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1848 
1059 
18690 
1878 
1880 
1898 
1180 
1110 
1120 
1130 
1146 
1158 
1168 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1258 
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DATA JIM ANTELOPE FARM EQUIP.,48 
DATA COLONEL MOTORS,75 

DATA LEMON COMPUTER, 48 

DATA MCRONALDS HAMBURGER,65 
DATA OKLAHOMA INSTRUMENTS,7 
DATA PACIFIC POORFIELD OIL,45 
DATA 286TH NAT. BANK, 38 

DATA USELESS AIRLINES, 3@ 

DATA XYZ TV NETWORK,75 

PRINT 

HTAB 1: VTAB 17 

PRINT SPC( 39): VTAB 17: HTAB 1 
INVERSE 

PRINT “YOU HAVE $"AC" IN CASH"; 
NORMAL 


GOSUB 1218 
RETURN : 
PRINT VTAB 19 


FOR N = 1 TO 5: PRINT SPC( 39) 
NEXT N 

VTAB 19: HTAB 1 

RETURN 


Program 98 HEADLINE GENERATOR 


It ain’t what you say, it’s how you say it. 


18 

26 

3@ 

40 

5@ 

66 

78 

88 

96 

196 
118 
128 
130 
148 
158 
1690 
1798 
186 
196 
200 
2186 
226 
238 
248 
258 
260 
276 
288 
298 
300 
316 
320 
336 
346 
356 
366 
378 
3808 
396 
400 
416 
426 
430 
446 
458 
460 
4708 
480 


—Overheard in the editorial office of the Daily Blatt 


REM ** COMPUTER-GENERATED HEADLINES ** 
REM 

TEXT : HOME : DIM R$(100,3) 

FOR N = @ TO 11:x$ = X$ + CHRS$ (32): NEXT N 
FOR N = @ TO 39:Y$ = Y$ + “=": NEXT N 


M1$ = X$ + "TODAY'S HEADLINES" + CHRS (13) + Y$ 


PRINT M1$: PRINT 

PRINT "THIS PROGRAM SUGGESTS HEADLINES FOR" 
PRINT "THE DAY'S NEWSPAPER. IT IS YOUR NEWS~" 
PRINT “PAPER, AND YOU ARE THE EDITOR~IN~CHIEF." 
PRINT : PRINT “SIMPLY FOLLOW SOME INSTRUCTIONS" 
PRINT “THAT WILL SOON APPEAR ON THE SCREEN." 
PRINT “THE COMPUTER WILL DO EVERYTHING ELSE" 
PRINT “AFTER THAT." 

PRINT : PRINT : FLASH : PRINT "NOTICE:"; 

NORMAL : PRINT "THE AUTHORS OF THIS PROGRAM" 
PRINT "CANNOT BE SUED FOR ANY LIBELOUS HEAD-" 
PRINT “LINES THAT YOUR COMPUTER MIGHT" 

PRINT “GENERATE!” 

VTAB 21: PRINT "STRIKE ANY KEY TO BEGIN ..."; 
GOSUB 676 

HOME : PRINT M1$: PRINT "WHAT IS YOUR NAME"; 
INPUT NS 

IF LEN (N$) > @ AND LEN (NS) < 25 THEN 286 
PRINT “AWW, CUT IT OUT. BE REAL. TRY AGAIN ...": GOTO 239 


FOR N = @ TO ( LEN (NS) + 18) / 2:X$ = X$ + CHRS (32): NEXT N 
M1S = X$ + NS + "'S GAZETTE" + CHRS (13) + Y$ 
PRINT : PRINT "THAT'S A GOOD START." 

VTAB 21: PRINT "STRIKE ANY KEY TO CONTINUE ...";: GOSUB 670 
HOME : PRINT M1S$ 

PRINT "ENTER SOME NOUNS SUCH AS:" 
W = 1: GOSUB 548:N = 1 

HOME : PRINT M1S$ 

PRINT "ENTER SOME VERBS SUCH AS:" 
W = 2: GOSUB 540:N = 1 

HOME : PRINT M1S$ 

PRINT "ENTER SOME DIRECT OBJECTS SUCH AS:" 
W = 3: GOSUB 54@:N = 1 

HOME : PRINT Ml1S: PRINT 

FOR M = 1 TO 3 

PRINT RS$( INT (N(M) * RND (1)) + 1,M) +" %; 
NEXT M 

HTAB 1: VTAB 206 

PRINT “STRIKE THE SPACE BAR TO SEE ANOTHER" 
PRINT “HEADLINE (OR THE X KEY TO END THIS" 
PRINT "PROGRAM) ..."; 

GOSUB 6798 
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490 
5098 
510 
5208 
530 
5498 
550 
5698 
578 
588 
590 
600 
610 
620 
630 
640 
650 
666 
6708 
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IF K$ = "X" THEN HOME : END 

GOTO 490 

DATA CAT,DOG,MOUSE, ELEPHANT, SHOOTS ,MEETS 
DATA BEATS UP,FALLS IN LOVE WITH 

DATA SELF,HOUSE,TURTLE,LITTLE BUG 


PRINT 
FOR N = 1 TO 4: READ M$: PRINT TAB( 3)M$: NEXT N 
PRINT : PRINT "YOU CAN ENTER AS MANY AS 100 OF THEM" 
PRINT "-~ THE MORE, THE BETTER. JUST END YOUR" 


PRINT “LIST WITH ###.": PRINT 


N= 1 


HTAB 1: VTAB 15 
IF PEEK (37) > 21 THEN 660 
HTAB 1: CALL -—- 868 


PRINT N™ --— ";: INPUT "";RS$ 
IF R$ = "" OR N = 1] AND RS = "###" THEN 619 
IF RS = "###" OR N > = 100 THEN N(W) = N —- 1: RETURN 


R$(N,W) = RS$:N = N + 1: GOTO 619 


GET K$: RETURN 


Program 99 KING PONG 


Times do not change games, but rather the patience with which they are played. 
—Earle C. Bootington 


16 REM ** KINGPONG ** 

26 REM 

3@ FOR K = 1 TO 16:M$ = M$ + CHR$ (32): NEXT K 

40 MS = MS + "KINGPONG*® + CHRS$ (13) 

5@ FOR K = 1 TO 40:M$ = M$ + "*": NEXT K 

6@ TEXT : HOME : PRINT M$ 

7® PRINT : PRINT “HI THERE, MY NAME IS KEVIN. I WORK" 
8@ PRINT “FOR DAVID L. HEISERMAN. DAVE IS ALWAYS" 
98 PRINT “CHANGING MY PROGRAMS, TRYING TO MAKE" 

19@ PRINT "THEM BETTER AND BETTER. THIS IS A * 

116 PRINT "PROGRAM THAT DAVE (OR YOU FOR THAT * 

120 PRINT “MATTER) CAN EASILY CHANGE TO SUIT YOUR" 
138 PRINT "OWN TASTE. " 

146 PRINT : PRINT "THE BASIC GAME IS THE FAMILIAR 'PONG'® 
150 PRINT “GAME. YOU CAN USE THE MENUES (SIC) TO 
168 PRINT “SELECT THE COLORS AND SPEED OF THE" 

178 PRINT "GAME." 

18@ PRINT : PRINT TAB( 5)"~-~ KEVIN" 

198 VTAB 21: PRINT "STRIKE ANY KEY ..."%; 

206 GET KS$ 

218 HTAB 1: VTAB 13 

220 CALL - 198: CALL — 958 

238 PRINT "I DIDN'T CHANGE THIS ONE (VERY MUCH)." 
246 PRINT : PRINT TAB( 5)"~~ DAVE" 

256 VTAB 21: PRINT “STRIKE ANY KEY TO CONTINUE ..."; 
268 GET K$ 

276 FOR N = 1 TO 8: READ CAS$(N) 

286 READ CC(N): NEXT N 

298 A$ = "FIELD" 


308 NI = 8: GOSUB 18696 

316 FC = CD:A$ = "BALL": GOSUB 1898 
328 BC = CD:A$ = “PADDLE”: GOSUB 1899 
338 PC = CD: HOME : PRINT M$: PRINT 


349 PRINT : PRINT "HOW FAST SHOULD THE BALL TRAVEL (1-5)"; 
350 GET K$ 

368 IF K$ < "1" OR K$ > "5S" THEN CALL - 198: GOTO 350 
370 SD = VAL (K$) * 20 

388 HOME : GR 

398 PP = @:CS = 9 

498 COLOR= FC 

419 FOR H = @ TO 39: VLIN E@,39 AT H: NEXT H 

426 COLOR= PC 

430 VLIN @,39 AT @: HLIN 6,39 AT @ 

448 HLIN @,39 AT l: HLIN 0,39 AT 39 

458 HLIN 6,39 AT 38: VLIN 6,39 AT l 

460 DF = ~- 1:DR = @ 

478 PS = 20 

488 X = 20:Y = 20:NX = 20:NY = 20 
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490 
508 
518 
520 
538 
5408 
5508 
568 
576 
580 
5908 
600 
610 
626 
638 
646 
658 
660 
676 
680 
698 
708 
718 
728 
736 
748 
758 
768 
778 
788 
796 
800 
816 
820 
836 
846 
858 
868 
8798 
8898 
896 
908 
919 
928 
938 
948 
958 
966 
978 
988 
998 
1008 
1018 
1828 
1838 
18498 
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DR = INT ( RND (1) * 4 - 2) 

FOR T = SD TO 101: NEXT T 
K = PEEK ( ~- 16384): POKE - 16368,0 

GOSUB 930 

COLOR= BC 
NX = X + DF:NY = Y + DR 

IF SCRN( NX,NY) < > PC THEN 869 

IF NX = 35 AND ABS (PS — NY) < 2 THEN PP = PP + 1 


IF NX > 2 AND NX < 34 THEN DR = DR * - 1: GOTO 698 
IF NX < 3 OR NX > 34 THEN DF = DF * - 1 

IF X < 35 THEN 660 
cs = cS + 1 
X = 206:NX = 20:Y = 20:NY = 20 
DF = -1 

FOR T = 1 TO 1900 
CK = PEEK ( ~ 16336): NEXT T 

FOR T = 1 TO 500: NEXT T 

IF DR > @ THEN DR = INT ( RND (1) * 3) 

IF DR < @ THEN DR = - INT ( RND (1) * 3): GOTO 690 
IF DR = @ THEN DR = INT ( RND (1) * 3 - 1) 

CALL - 198 

IF PP < 21 AND CS < 21 THEN 819 

TEXT : HOME : PRINT MS 

PRINT : PRINT : CALL ~ 198: CALL — 198: FLASH 

IF PP > = 21 THEN PRINT : PRINT *** YOU WIN *** 

IF CS > = 21 THEN PRINT : PRINT “* * THE COMPUTER WON *" 


NORMAL : PRINT : PRINT 
PRINT “WOULD YOU LIKE TO PLAY AGAIN (Y/N)"; 
GET K$ 


IF K$ = "Y" THEN 388 
IF K$ = "N* THEN HOME : END 
CALL —- 198: GOTO 778 


HOME : PRINT "YOU HAVE "PP" PTS." SPC( 18); 
PRINT "D=DOWN" 
PRINT : PRINT "COMPUTER HAS "CS" PTS." SPC( 6); 
PRINT “U=UP* 
GOTO 549 
COLOR= FC: PLOT X,Y: COLOR= BC 
X = NX:Y = NY 
IF NX > 35 THEN 579 
PLOT NX,NY 
GOTO 589 
K = PEEK ( - 16384) 
POKE - 16368,@ 
IF K < > 213 THEN 1619 
COLOR= FC 
VLIN PS - 1,PS + 1 AT 35 
PS = PS - 2: COLOR= PC 
IF PS < 2 THEN PS = PS + 2 
IF PS = 2 THEN PS = PS + 1 
VLIN PS - 1,PS + 1 AT 35 
GOTO 1088 
IF K < > 196 THEN 1080 
COLOR= FC 
VLIN PS ~ 1,PS + 1 AT 35 
PS = PS + 2: COLOR= PC 


1050 
1860 
1670 
10808 
1096 
1188 
1118 
1126 
1138 
1146 
1158 
1168 
1178 
1188 
1198 
1288 


IF PS > 37 THEN PS = PS ~ 2 
IF PS = 37 THEN PS = PS - 1 

VLIN PS - 1,PS + 1 AT 35 

RETURN 

HOME : PRINT MS 

FOR N = 1 TO NI 

PRINT : PRINT TAB( 16)N SPC( 3)CA$(N) 

NEXT N 

PRINT 

PRINT “SELECT A COLOR FOR THE “AS"(1~8)"; 

GET K$ 

IF K$ < "1" OR KS > "8" THEN 1159 
K = VAL (K$):CD = CC(K) 

RETURN 

DATA BLACK,@,DARK BLUE,2,LIGHT BLUE,7 

DATA GREEN,12,ORANGE,9,GREY,5,YELLOW,13,WHITE,15 
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Program 100 ADVENTURE REVISITED 


Adventure is not outside a man; it is within. 
—David Grayson 


16 REM ** ADVENTURE REVISITED ** 

20 REM 

30 FOR N = 1 TO 40:Y$ = Y$ + "="; NEXT N 

40 TEXT : HOME 

50 PRINT "THIS IS ORIGINAL ADVENTURE #12556789. 
60 PRINT "I AM YOUR PUPPET AND YOU CAN" 

70 PRINT "TELL ME TO MOVE AROUND. TO GET THINGS," 
80 PRINT "GO SOUTH,GO EASY,TAKE INVENTORY AND OTHER® 
90 PRINT "THINGS THAT YOU KNOW BECAUSE YOU PLAID" 
100 PRINT “PREVIOUS 12556788 FAMOUS ADVENTURES." 
110 PRINT 

1260 PRINT “WE HAVE TO DISCUSS SOMETHING VERY IM~" 
138 PRINT "PORTANT FIRST, THO." 

148 GOSUB 670: GOSUB 7190 

158 HOME 

168 CALL ~ 198 

17@ PRINT "YOU LOVE YOUR MOM, DONT YOU?" 

188 GOSUB 678 

198 PRINT “OF COURSE YOU DO!" 

208 CALL ~ 198: PRINT 

216 PRINT “YOU LOVE YOUR COUNTRY DONT YOU??" 

228 GOSUB 678 

230 PRINT “OF COURSE YOU DO!!" 

248 CALL - 198: PRINT 

250 PRINT "AND YOU LOVE APPLE PIE, DONT YOU??" 
268 GOSUB 678 


27@ PRINT "OF COURSE YOU DOO! !!!!1!" 

288 FOR N = 1 TO 2: CALL —- 198: GOSUB 670: NEXT N 

298 PRINT : PRINT "WELL THIS IS A MOM, COUNTRY AND APPLE 
300 PRINT "PIE OPERATION. AND I SPENT YEARS AND YEARS 
310 PRINT "MAKING THIS PROGRAM! !!1!" 

320 FOR N = 1 TO 2: CALL - 198: GOSUB 670: NEXT N 

338 FLASH : PRINT "SO DO NOT ACCEPT A PIRATED COPY OF" 
340 PRINT "PROGRAM! !!!!)1)1" 


350 NORMAL 

360 FOR N = 1 TO 10: CALL —- 198: NEXT N 

370 PRINT 

380 PRINT "OR ILL GET MAD!I!S!i)rrrri" 

390 PRINT : PRINT “WELL, HAPPY ADVENTURER, HIT THE ENTER KEY" 
400 PRINT "TO START THIS ADVENTURE" 

410 PRINT "(IF YOU DONT KNOW WHAT THE ENTER KEY IS IT" 
420 PRINT "MEANS THAT YOU DONT HAVE A TRS~80)" 

430 GET K$ 

440 HOME 

45@ PRINT "YOU ARE STANDING IN FRONT OF A SPOOKY" 

460 PRINT "OLD HOUSE." 

478 PRINT Y$ 

480 PRINT "VISIBLE ITEMS:"; 
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490 
588 
518 
520 
538 
540 
550 
5698 
570 
580 
598 
608 
610 
628 
638 
640 
660 
670 
688 
698 
708 
718 
728 
738 


FOR N = 1 TO 11: READ D$ 

PRINT D$","; 

NEXT N 

HTAB 1: VTAB 19 

PRINT Y$ 

PRINT "COMMANDS ARE: (N) ORTH, (S) OUTH, (E) AST 
PRINT "(W) EST, (G)ET,TAKE (I) NVENTORY 

HTAB 1: VTAB 8 

PRINT “WHAT SHOULD I DO?"; 


GET K$ 

GOSUB 678 

PRINT : PRINT "A LARGE TREE FELL ON YOUR HEAD!!!!"* 
PRINT "YOURE DEAD ~~ DEAD, DEAD,DEAD!! 11!!!" 


PRINT : PRINT “THIS ADVENTURE IS OVER." 

PRINT "YOU TOOK 1 STEPS" 

PRINT "YOU FOUND @ TREASURES” 

END 

FOR T = 1 TO 2880: NEXT T: RETURN 

DATA LARGE KEY,SMALL KEY,BRASS KEY,IRON KEY,GOLD KEY 
DATA MONKEY,OLD GUM,LARGE GUM,SMALL GUM,BRASS MONKEY 
DATA IRON GUM 

VTAB 21: PRINT "STRIKE ANY KEY TO CONTINUE®*; 

GET KS 

RETURN 
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Program 101 GOOD-BYE | 


So much for the nonsense. Now we gotta get back to work. 
—Overheard from a private office in Columbus, Ohio 


16 REM ** GOOD-BYE ** 
28 REM 

30 FOR K = 1 TO 40:MHS = MHS + "*": NEXT K 

40 FOR N = 1 TO 63 

5@ READ D:M$ = M$ + CHR$ (D) 

60 NEXT N 

70 MS = MS + "GOOD-BYE ..." 

80 MS = MS + "(STRIKE ANY KEY TO SAY 'GOOD-BYE' TO ME.) 
98 N$ =" 

168 FOR K = 1 TO 40:N$ = " “ + NS: NEXT K 

1190 M$ = N$ + MS 

126 TEXT : HOME 

130 HTAB 1: VTAB 16: PRINT MHS 

146 HTAB 1: VTAB 14: PRINT MHS 

15@ INVERSE 

168 FOR N = 2 TO LEN (MS) 

170 P$ = MIDS (MS,N) + LEFTS$ (M$,N - 1) 

188 VTAB 12: HTAB 1 

199 PRINT LEFTS (P$,46) 

206 FOR T = 1 TO 20 

210 IF T < 10 THEN G = PEEK ( — 16336) 

220 NEXT T 

230 K = PEEK (49152): POKE 49168,9 

240 IF K > 127 THEN NORMAL : HOME : END 

258 G = PEEK ( - 16336) 

268 NEXT N 

278 FOR G = 1 TO 3: CALL ~ 198: NEXT G 

288 GOTO 160 

298 DATA 73,32,65,77,32,74,85,83,84,32,65,32,86 
300 DATA 73,83,73,84,79,82,32,84,79,32,84,72,73 
318 DATA 83,32,80,76,65,78,69,84,46,32,73,84,39 
320 DATA 83,32,84,73,77,69,32,78,79,82,32,77,69 
338 DATA 32,84,79,32,71,79,32,78,79,87,46 
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101 Programming Surprises 
and Tricks for Your Apple II®///e® Computer 


If you are intrigued with the possibilities of the programs included in 107 Programming Surprises and 
Tricks for Your Apple ll, le Computer (TAB Book No.1721), youshould definitely consider having the 
ready-to-run disk containing the software applications. This software is guaranteed free of manufac- 
turer's defects. (If you have any problems, return the disk within 30 days, and we'll send you a new 
one.) Not only will you save the time and effort of typing the programs, the disk eliminates the 
possibility of errors that can prevent the programs from functioning. Interested? 


Available on disk for Apple fi, Il+, /le, 48K at $19.95 for each disk plus $1.00 each shipping and 
handling. 


ae ee ee ne ee eee ey 


I I'm interested. Send me: 


disk for Apple Il, ll+, fe, 48K (5061S) 

TAB BOOKS catalog 

Check/Money Order enclosed for $19.95 

plus $1.00 shipping and handling for each disk ordered. 
VISA —_____— MasterCard 


Account No. _.-_--——sseFeFeFFFFFsSSSSSS—COsFsFSFesSsS—C—CFsSSSSSSSCOPEExiress 


Name 
Address 
City. 2 State nn Zip 


Signature 


Mail To: TAB BOOKS Inc. 
P.0. Box 40 
Blue Ridge Summit, PA 17214 


(Pa. add 6% sales tax. Orders outside U.S. must be prepaid with international money orders in U.S. dollars.) 


TAB 1721 
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